Planet Source Code Jumbo …e CD Visual Basic 1 to 7/6_2008-2009.ISO/data/zips/Odesa_Very2120947182008.psc/File Search/Button.ctl

Text File | 2007-10-29 | 159KB | 3,237 lines

VERSION 5.00
Begin VB.UserControl Button
   ClientHeight    =   3600
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   4800
   ScaleHeight     =   3600
   ScaleWidth      =   4800
End
Attribute VB_Name = "Button"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
'''''''''''''''''''''''''''''''''''''''''''''''''''''
' ************************************************* '
' *                                               * '
' *  Control Name:   ShapeButton                  * '
' *                                               * '
' *  Created:        10/September/2007            * '
' *                                               * '
' *  Created by:       Ahmed Alotiabe             * '
' *                                               * '
' *  You Have A Royalty Free Right To Use         * '
' *  Modify And Reproduce And Distribute.         * '
' *                                               * '
' *  But I Assume No Warranty, Obligations        * '
' *  Or Liability For The Use Of This Code.       * '
' *                                               * '
' *   For Any Damage This Control                 * '
' *           Can Cause To Your Products.         * '
' ************************************************* '
'''''''''''''''''''''''''''''''''''''''''''''''''''''

'>> Needed For The API Call >> GradientFill >> Backgraound
Private Type GRADIENT_RECT
    UpperLeft            As Long
    LowerRight           As Long
End Type

Private Type TRIVERTEX
    X                    As Long
    Y                    As Long
    Red                  As Integer
    Green                As Integer
    Blue                 As Integer
    Alpha                As Integer
End Type
'............................................................
'>>Needed For The API Call >> CreatePolygonRgn >> Polygon
'>>Postion For Picture And Caption ...etc.
Private Type POINTAPI
    X                    As Long
    Y                    As Long
End Type
'............................................................
'>> Constant Types Used With CreatePolygonRgn
Private Const WINDING    As Long = 2

'............................................................
'>> Constant Types Used With GradientFill
Private Const GRADIENT_FILL_RECT_H As Long = &H0
Private Const GRADIENT_FILL_RECT_V As Long = &H1

'............................................................
'>> Constant Types For LinsStyle
Private Const BDR_VISUAL As Long = vb3DDKShadow
Private Const BDR_VISUAL1 As Long = vbButtonShadow
Private Const BDR_VISUAL2 As Long = vb3DHighlight

'............................................................
'>> Constant Types For LinsStyle
Private Const BDR_FLAT1  As Long = vb3DDKShadow
Private Const BDR_FLAT2  As Long = vb3DHighlight

'............................................................
'>> Constant Types For LinsStyle
Private Const BDR_JAVA1  As Long = vbButtonShadow
Private Const BDR_JAVA2  As Long = vb3DHighlight

'............................................................
'>> Constant Values For White Border >> IF Mouse Down Button
Private Const BDR_PRESSED As Long = vb3DHighlight

'............................................................
'>> Constant Values For Gold Border >> IF Mouse Over Button
Private Const BDR_GOLDXP_DARK As Long = &H109ADC
Private Const BDR_GOLDXP_NORMAL1 As Long = &H31B2F0
Private Const BDR_GOLDXP_NORMAL2 As Long = &H90D6F7
Private Const BDR_GOLDXP_LIGHT1 As Long = &HCEF3FF
Private Const BDR_GOLDXP_LIGHT2 As Long = &H8CDBFF

'............................................................
'>> Constant Types For LinsStyle
Private Const BDR_VISTA1 As Long = vbWhite
Private Const BDR_VISTA2 As Long = &HCFB073

'............................................................
'>> Constant Types For FocusRect
'>> If Display Properties Colors IS Hight Color(16Bit)Use
'Private Const BDR_FOCUSRECT As Long = &HC0C0C0    '>> Color Gray

'>> If Display Properties Colors IS TrueColor(32Bit)Use
Private Const BDR_FOCUSRECT As Long = &HD1D1D1             '>> Color LightGray
'>> Constant Types For FocusRect Java
Private Const BDR_FOCUSRECT_JAVA As Long = &HCC9999        '>> ColorMauve
'>> Constant Values For FocusRect Vista
Private Const BDR_FOCUSRECT_VISTA As Long = 16698372
'>> Constant Values For FocusRect Xp
Private Const BDR_BLUEXP_DARK As Long = &HD98D59
Private Const BDR_BLUEXP_NORMAL1 As Long = &HE2A981
Private Const BDR_BLUEXP_NORMAL2 As Long = &HF0D1B5
Private Const BDR_BLUEXP_LIGHT1 As Long = &HF7D7BD
Private Const BDR_BLUEXP_LIGHT2 As Long = &HFFE7CE

'............................................................
'>> Constant Types For HandPointer
Private Const CURSOR_HAND = 32649&

'............................................................
'>> API Declare Function's
Private Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
Private Declare Function SetCursor Lib "user32" (ByVal hCursor As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function ScreenToClient Lib "user32" (ByVal hWnd As Long, lpPoint As POINTAPI) As Long
Private Declare Function GetCapture& Lib "user32" ()
Private Declare Function SetCapture& Lib "user32" (ByVal hWnd&)
Private Declare Function ReleaseCapture& Lib "user32" ()
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function SetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long) As Long
Private Declare Function GetTextExtentPoint32 Lib "gdi32" Alias "GetTextExtentPoint32A" (ByVal hdc As Long, ByVal lpsz As String, ByVal cbString As Long, lpSize As POINTAPI) As Long
Private Declare Function TextOutW Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal lpString As String, ByVal nCount As Long) As Long
Private Declare Function TextOutA Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal lpString As String, ByVal nCount As Long) As Long
Private Declare Function MoveToEx Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, lpPoint As POINTAPI) As Long
Private Declare Function LineTo Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function Arc Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long, ByVal X4 As Long, ByVal Y4 As Long) As Long
Private Declare Function GradientFill Lib "msimg32" (ByVal hdc As Long, ByRef pVertex As TRIVERTEX, ByVal dwNumVertex As Long, pMesh As Any, ByVal dwNumMesh As Long, ByVal dwMode As Long) As Integer
Private Declare Function TranslateColor Lib "olepro32.dll" Alias "OleTranslateColor" (ByVal clr As OLE_COLOR, ByVal palet As Long, Col As Long) As Long
Private Declare Function CreatePolygonRgn Lib "gdi32" (lpPoint As POINTAPI, ByVal nCount As Long, ByVal nPolyFillMode As Long) As Long
Private Declare Function Polygon Lib "gdi32" (ByVal hdc As Long, lpPoint As POINTAPI, ByVal nCount As Long) As Long
Private Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function RoundRect Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long

'............................................................
'>> Button Declarations
'............................................................
Public Enum EnumButtonShape
    Rectangle
    RoundedRectangle
    Round
    Diamond
    Top_Triangle
    Left_Triangle
    Right_Triangle
    Down_Triangle
    top_Arrow
    Left_Arrow
    Right_Arrow
    Down_Arrow
End Enum
Public Enum EnumButtonStyle
    Custom
    Visual
    Flat
    OverFlat
    Java
    XPOffice
    WinXp
    Vista
    Glass
End Enum
Public Enum EnumButtonStyleColors
    Transparent
    SingleColor
    Gradient_H
    Gradient_V
    TubeCenter_H
    TubeTopBottom_H
    TubeCenter_V
    TubeTopBottom_V
End Enum
Public Enum EnumButtonTheme
    NoTheme
    XpBlue
    XpOlive
    XPSilver
    Visual2005
    Norton2005
    RedColor
    GreenColor
    BlueColor
End Enum
Public Enum EnumButtonType
    Button
    CheckBox
End Enum
Public Enum EnumCaptionAlignment
    TopCaption
    LeftCaption
    CenterCaption
    RightCaption
    BottomCaption
End Enum
Public Enum EnumCaptionEffect
    Default
    Raised
    Sunken
    Outline
End Enum
Public Enum EnumCaptionStyle
    Normal
    HorizontalFill
    VerticalFill
End Enum
Public Enum EnumDropDown
    None
    LeftDropDown
    RightDropDown
End Enum
Public Enum EnumPictureAlignment
    TopPicture
    LeftPicture
    CenterPicture
    RightPicture
    BottomPicture
End Enum
'............................................................
'>> Property Member Variables
'............................................................
Private mButtonShape     As EnumButtonShape
Private mButtonStyle     As EnumButtonStyle
Private mButtonStyleColors As EnumButtonStyleColors
Private mButtonTheme     As EnumButtonTheme
Private mButtonType      As EnumButtonType
Private mCaptionAlignment As EnumCaptionAlignment
Private mCaptionEffect   As EnumCaptionEffect
Private mCaptionStyle    As EnumCaptionStyle
Private mDropDown        As EnumDropDown
Private mPictureAlignment As EnumPictureAlignment

'............................................................
'>> Property Color Variables
Dim mBackColor           As OLE_COLOR
Dim mBackColorPressed    As OLE_COLOR
Dim mBackColorHover      As OLE_COLOR
'............................................................
Dim mBorderColor         As OLE_COLOR
Dim mBorderColorPressed  As OLE_COLOR
Dim mBorderColorHover    As OLE_COLOR
'............................................................
Dim mForeColor           As OLE_COLOR
Dim mForeColorPressed    As OLE_COLOR
Dim mForeColorHover      As OLE_COLOR
'............................................................
Dim mEffectColor         As OLE_COLOR

Dim mCaption             As String
Dim mFocusRect           As Boolean
Dim mFocused             As Boolean
Dim mValue               As Boolean
Dim mHandPointer         As Boolean
Dim mPicture             As Picture
Dim mPictureGray         As Boolean
'............................................................
Dim CaptionPos(1)        As POINTAPI                          '>> Postion Text
Dim PicturePos(1)        As POINTAPI                          '>> Postion Picture
Dim Fo                   As POINTAPI               '>> Region Of FocusRect
'............................................................
'>> Mouse Button >> Hovered Or Pressed
Private MouseMove, MouseDown As Boolean
Attribute MouseDown.VB_VarUserMemId = 1073938462

Dim P(0 To 7)            As POINTAPI
Attribute P.VB_VarUserMemId = 1073938464
Dim PL(0 To 7)           As POINTAPI
Attribute PL.VB_VarUserMemId = 1073938465
Dim Lines                As POINTAPI
Attribute Lines.VB_VarUserMemId = 1073938466
Dim hRgn                 As Long
Attribute hRgn.VB_VarUserMemId = 1073938467
'............................................................
'>> Button Event Declaration's
'............................................................
Public Event Click()
Public Event DblClick()
Public Event KeyDown(KeyCode As Integer, Shift As Integer)
Public Event KeyPress(KeyAscii As Integer)
Public Event KeyUp(KeyCode As Integer, Shift As Integer)
Public Event MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Public Event MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Public Event MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Public Event OLECompleteDrag(Effect As Long)
Public Event OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Public Event OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer)
Public Event OLEGiveFeedback(Effect As Long, DefaultCursors As Boolean)
Public Event OLESetData(Data As DataObject, DataFormat As Integer)
Public Event OLEStartDrag(Data As DataObject, AllowedEffects As Long)
'............................................................
'>> Start Properties Button
'............................................................
Public Property Get hdc() As Long
    hdc = UserControl.hdc
End Property
Public Property Get hWnd() As Long
    hWnd = UserControl.hWnd
End Property
Public Sub Refresh()
    UserControl.Refresh
End Sub

Public Property Get ButtonShape() As EnumButtonShape
    ButtonShape = mButtonShape
End Property
Public Property Let ButtonShape(ByVal EBS As EnumButtonShape)
    mButtonShape = EBS
    PropertyChanged "ButtonShape"
    UserControl_Paint
End Property
Public Property Get ButtonStyle() As EnumButtonStyle
    ButtonStyle = mButtonStyle
End Property
Public Property Let ButtonStyle(ByVal EBS As EnumButtonStyle)
    mButtonStyle = EBS
    PropertyChanged "ButtonStyle"
    '.............................................................
    '>> ButtonStyle,Visual, Flat,OverFlat,Java,XpOffice,WinXp
    '>> Vista,Glass
    '>> Default BackColors To ButtonStyle At Hover,Press,Off
    '>> 'Default ForeColors To ButtonStyle At Hover,Press,Off
    '.............................................................
    Select Case mButtonStyle
        Case Is = Visual
            mBackColor = vbButtonFace
            mBackColorHover = vbButtonFace
            mBackColorPressed = vbButtonFace
            'mForeColor = vbBlack
            'mForeColorHover = vbBlack
            'mForeColorPressed = vbBlack
        Case Is = Flat
            mBackColor = vbButtonFace
            mBackColorHover = vbButtonFace
            mBackColorPressed = vbButtonFace
            'mForeColor = vbBlack
            ' mForeColorHover = vbBlack
            'mForeColorPressed = vbBlack
        Case Is = OverFlat
            mBackColor = vbButtonFace
            mBackColorHover = vbButtonFace
            mBackColorPressed = vbButtonFace
            'mForeColor = vbBlack
            'mForeColorHover = vbBlack
            'mForeColorPressed = vbBlack
        Case Is = Java
            If Not mButtonStyleColors = Transparent Then mButtonStyleColors = SingleColor
            mBackColor = vbButtonFace
            mBackColorHover = vbButtonFace
            mBackColorPressed = &H999999
            'mForeColor = vbBlack
            'mForeColorHover = vbBlack
            'mForeColorPressed = vbBlack
        Case Is = XPOffice
            mBackColor = vbButtonFace
            mBackColorHover = &HB6A59F
            mBackColorPressed = &HAF8C80
            'mForeColor = vbBlack
            'mForeColorHover = vbBlack
            'mForeColorPressed = vbBlack
        Case Is = WinXp
            If Not mButtonStyleColors = Transparent Then mButtonStyleColors = Gradient_V
            mBackColor = &HD2DEDD
            mBackColorHover = vbWhite
            mBackColorPressed = vbWhite
            'mForeColor = vbBlack
            'mForeColorHover = vbBlack
            'mForeColorPressed = vbBlack
        Case Is = Vista
            mBackColor = &HD8D8D8
            mBackColorHover = &HF7DBA5
            mBackColorPressed = &HEFCE92
            'mForeColor = &H8000000D    'vbhightlight
            'mForeColorHover = &H8000000D
            'mForeColorPressed = &H8000000D
        Case Is = Glass
            mBackColor = vbDesktop
            mBackColorHover = vbDesktop
            mBackColorPressed = vbDesktop
            'mForeColor = vbWhite
            'mForeColorHover = vbWhite
            'mForeColorPressed = vbWhite
    End Select
    UserControl_Paint
End Property
Public Property Get ButtonStyleColors() As EnumButtonStyleColors
    ButtonStyleColors = mButtonStyleColors
End Property
Public Property Let ButtonStyleColors(ByVal EBSC As EnumButtonStyleColors)
    mButtonStyleColors = EBSC
    PropertyChanged "ButtonStyleColors"
    UserControl_Paint
End Property
Public Property Get ButtonTheme() As EnumButtonTheme
    ButtonTheme = mButtonTheme
End Property
Public Property Let ButtonTheme(ByVal EBT As EnumButtonTheme)
    mButtonTheme = EBT
    PropertyChanged "ButtonTheme"
    '.............................................................
    '>> ButtonTheme,XpBlue,XpOlive,XPSilver,Visual2005,Norton2005
    '>> RedColor,GreenColor,BlueColor.
    '.............................................................
    Select Case mButtonTheme
        Case Is = XpBlue
            mBackColor = &HF1B39A
            mBackColorHover = &HFDF7F4
            mBackColorPressed = &HFAE6DD
            mBorderColor = &HF1B39A
            mBorderColorHover = &HF1B39A
            mBorderColorPressed = &HF1B39A
        Case Is = XpOlive
            mBackColor = &H3DB4A2
            mBackColorHover = &HDFF4F2
            mBackColorPressed = &HB8E7E0
            mBorderColor = &H3DB4A2
            mBorderColorHover = &H3DB4A2
            mBorderColorPressed = &H3DB4A2
        Case Is = XPSilver
            mBackColor = &HB5A09D
            mBackColorHover = &HF7F5F4
            mBackColorPressed = &HECE7E6
            mBorderColor = &HB5A09D
            mBorderColorHover = mBorderColor
            mBorderColorPressed = mBorderColor
        Case Is = Visual2005
            mBackColor = &HABC2C2
            mBackColorHover = &HF2F8F8
            mBackColorPressed = &HE6EDEE
            mBorderColor = &HABC2C2
            mBorderColorHover = mBorderColor
            mBorderColorPressed = mBorderColor
        Case Is = Norton2005
            mBackColor = &H2C5F5
            mBackColorHover = &HE2F9FF
            mBackColorPressed = &HAFEFFE
            mBorderColor = &H2C5F5
            mBorderColorHover = mBorderColor
            mBorderColorPressed = mBorderColor
        Case Is = RedColor
            mBackColor = &H26368B
            mBackColorHover = &H4763FF
            mBackColorPressed = &H425CEE
            mBorderColor = vbRed
            mBorderColorHover = mBorderColor
            mBorderColorPressed = mBorderColor
        Case Is = GreenColor
            mBackColor = &H578B2E
            mBackColorHover = &H9FFF54
            mBackColorPressed = &H80CD43
            mBorderColor = vbGreen
            mBorderColorHover = mBorderColor
            mBorderColorPressed = mBorderColor
        Case Is = BlueColor
            mBackColor = &H8B4027
            mBackColorHover = &HFF7648
            mBackColorPressed = &HCD5F3A
            mBorderColor = vbBlue
            mBorderColorHover = mBorderColor
            mBorderColorPressed = mBorderColor
    End Select
    UserControl_Paint
End Property
Public Property Get ButtonType() As EnumButtonType
    ButtonType = mButtonType
End Property
Public Property Let ButtonType(ByVal EBT As EnumButtonType)
    mButtonType = EBT
    PropertyChanged "ButtonType"
    UserControl_Paint
End Property
Public Property Get CaptionAlignment() As EnumCaptionAlignment
    CaptionAlignment = mCaptionAlignment
End Property
Public Property Let CaptionAlignment(ByVal ECA As EnumCaptionAlignment)
    mCaptionAlignment = ECA
    PropertyChanged "CaptionAlignment"
    UserControl_Paint
End Property
Public Property Get CaptionEffect() As EnumCaptionEffect
    CaptionEffect = mCaptionEffect
End Property
Public Property Let CaptionEffect(ByVal ECE As EnumCaptionEffect)
    mCaptionEffect = ECE
    PropertyChanged "CaptionEffect"
    UserControl_Paint
End Property
Public Property Get CaptionStyle() As EnumCaptionStyle
    CaptionStyle = mCaptionStyle
End Property
Public Property Let CaptionStyle(ByVal ECS As EnumCaptionStyle)
    mCaptionStyle = ECS
    PropertyChanged "CaptionStyle"
    UserControl_Paint
End Property
Public Property Get DropDown() As EnumDropDown
    DropDown = mDropDown
End Property
Public Property Let DropDown(ByVal EDD As EnumDropDown)
    mDropDown = EDD
    PropertyChanged "DropDown"
    UserControl_Paint
End Property
Public Property Get PictureAlignment() As EnumPictureAlignment
    PictureAlignment = mPictureAlignment
End Property
Public Property Let PictureAlignment(ByVal EPA As EnumPictureAlignment)
    mPictureAlignment = EPA
    PropertyChanged "PictureAlignment"
    UserControl_Paint
End Property
Public Property Get BackColor() As OLE_COLOR
    BackColor = mBackColor
End Property
Public Property Let BackColor(ByVal New_Color As OLE_COLOR)
    mBackColor = New_Color
    PropertyChanged "BackColor"
    UserControl_Paint
End Property
Public Property Get BackColorPressed() As OLE_COLOR
    BackColorPressed = mBackColorPressed
End Property
Public Property Let BackColorPressed(ByVal New_Color As OLE_COLOR)
    mBackColorPressed = New_Color
    PropertyChanged "BackColorPressed"
    UserControl_Paint
End Property
Public Property Get BackColorHover() As OLE_COLOR
    BackColorHover = mBackColorHover
End Property
Public Property Let BackColorHover(ByVal New_Color As OLE_COLOR)
    mBackColorHover = New_Color
    PropertyChanged "BackColorHover"
    UserControl_Paint
End Property
Public Property Get BorderColor() As OLE_COLOR
    BorderColor = mBorderColor
End Property
Public Property Let BorderColor(ByVal New_Color As OLE_COLOR)
    mBorderColor = New_Color
    PropertyChanged "BorderColor"
    UserControl_Paint
End Property
Public Property Get BorderColorPressed() As OLE_COLOR
    BorderColorPressed = mBorderColorPressed
End Property
Public Property Let BorderColorPressed(ByVal New_Color As OLE_COLOR)
    mBorderColorPressed = New_Color
    PropertyChanged "BorderColorPressed"
    UserControl_Paint
End Property
Public Property Get BorderColorHover() As OLE_COLOR
    BorderColorHover = mBorderColorHover
End Property
Public Property Let BorderColorHover(ByVal New_Color As OLE_COLOR)
    mBorderColorHover = New_Color
    PropertyChanged "BorderColorHover"
    UserControl_Paint
End Property
Public Property Get ForeColor() As OLE_COLOR
    ForeColor = mForeColor
End Property
Public Property Let ForeColor(ByVal New_Color As OLE_COLOR)
    mForeColor = New_Color
    PropertyChanged "ForeColor"
    UserControl_Paint
End Property
Public Property Get ForeColorPressed() As OLE_COLOR
    ForeColorPressed = mForeColorPressed
End Property
Public Property Let ForeColorPressed(ByVal New_Color As OLE_COLOR)
    mForeColorPressed = New_Color
    PropertyChanged "ForeColorPressed"
    UserControl_Paint
End Property
Public Property Get ForeColorHover() As OLE_COLOR
    ForeColorHover = mForeColorHover
End Property
Public Property Let ForeColorHover(ByVal New_Color As OLE_COLOR)
    mForeColorHover = New_Color
    PropertyChanged "ForeColorHover"
    UserControl_Paint
End Property
Public Property Get EffectColor() As OLE_COLOR
    EffectColor = mEffectColor
End Property
Public Property Let EffectColor(ByVal New_Color As OLE_COLOR)
    mEffectColor = New_Color
    PropertyChanged "EffectColor"
    UserControl_Paint
End Property
Public Property Get Caption() As String
    Caption = mCaption
End Property
Public Property Let Caption(ByVal NewCaption As String)
    mCaption = NewCaption
    PropertyChanged "Caption"
    UserControl_Paint
End Property
Public Property Get FocusRect() As Boolean
    FocusRect = mFocusRect
End Property
Public Property Let FocusRect(ByVal New_FocusRect As Boolean)
    mFocusRect = New_FocusRect
    PropertyChanged "FocusRect"
    UserControl_Paint
End Property
Public Property Get Value() As Boolean
    Value = mValue
End Property
Public Property Let Value(ByVal New_Value As Boolean)
    mValue = New_Value
    PropertyChanged "Value"
    UserControl_Paint
End Property
Public Property Get HandPointer() As Boolean
    HandPointer = mHandPointer
End Property
Public Property Let HandPointer(ByVal New_HandPointer As Boolean)
    mHandPointer = New_HandPointer
    PropertyChanged "HandPointer"
    UserControl_Paint
End Property
Public Property Get Picture() As Picture
    Set Picture = mPicture
End Property
Public Property Set Picture(ByVal New_Picture As Picture)
    Set mPicture = New_Picture
    PropertyChanged "Picture"
    UserControl_Paint
End Property
Public Property Get PictureGray() As Boolean
    PictureGray = mPictureGray
End Property
Public Property Let PictureGray(ByVal New_PictureGray As Boolean)
    mPictureGray = New_PictureGray
    PropertyChanged "PictureGray"
    UserControl_Paint
End Property
'............................................................
'............................................................
Public Property Get Enabled() As Boolean
    Enabled = UserControl.Enabled
End Property
Public Property Let Enabled(ByVal New_Enabled As Boolean)
    UserControl.Enabled = New_Enabled
    PropertyChanged "Enabled"
    UserControl_Paint
End Property
Public Property Get Font() As Font
    Set Font = UserControl.Font
End Property
Public Property Set Font(ByVal New_Font As Font)
    Set UserControl.Font = New_Font
    PropertyChanged "Font"
    UserControl_Paint
End Property
Public Property Get MousePointer() As MousePointerConstants
    MousePointer = UserControl.MousePointer
End Property
Public Property Let MousePointer(ByVal New_MousePointer As MousePointerConstants)
    UserControl.MousePointer() = New_MousePointer
    PropertyChanged "MousePointer"
    UserControl_Paint
End Property
Public Property Get MouseIcon() As Picture
    Set MouseIcon = UserControl.MouseIcon
End Property
Public Property Set MouseIcon(ByVal New_MouseIcon As Picture)
    Set UserControl.MouseIcon() = New_MouseIcon
    PropertyChanged "MouseIcon"
    UserControl_Paint
End Property
'............................................................
'>> End Properties
'............................................................

'............................................................
'>> Convert Color's >> Red,Green,Blue To VB Color's
'............................................................
Private Sub ConvertRGB(ByVal Color As Long, R, G, B As Long)
    TranslateColor Color, 0, Color
    R = Color And vbRed
    G = (Color And vbGreen) / 256
    B = (Color And vbBlue) / 65536
End Sub
'............................................................
'>> Start UserControl
'............................................................
Private Sub UserControl_Click()
    '>> Start The Button Pressed
    If Me.ButtonType = CheckBox Then mValue = MouseDown = False
    UserControl_Paint
    RaiseEvent Click
End Sub
Private Sub UserControl_DblClick()
    '>> Start The Button Pressed Too
    MouseDown = True
    UserControl_Paint
    RaiseEvent DblClick
End Sub
Private Sub UserControl_GotFocus()
    '>> Show FocusRect If Click Button
    mFocused = True
    UserControl_Paint
End Sub
Private Sub UserControl_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 32 Or KeyCode = 13 Then                   '>> Space Or '>> Enter
        MouseDown = True
        UserControl_Paint
    End If
    RaiseEvent KeyDown(KeyCode, Shift)
End Sub
Private Sub UserControl_KeyPress(KeyAscii As Integer)
    RaiseEvent KeyPress(KeyAscii)
End Sub
Private Sub UserControl_KeyUp(KeyCode As Integer, Shift As Integer)
    If MouseDown = True Then
        MouseDown = False
        UserControl_Paint
        '>> Return Button To Original Shape If ButtonType >> CheckBox
        If KeyCode = vbKeyReturn Then UserControl_MouseDown 0, 0, 0, 0
    End If
    RaiseEvent KeyUp(KeyCode, Shift)
End Sub
Private Sub UserControl_LostFocus()
    '>> Visible FocusRect If Clicked Another Button
    mFocused = False
    UserControl_Paint
End Sub
Private Sub UserControl_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    '>> Start The Button Pressed
    MouseDown = True
    UserControl_Paint
    RaiseEvent MouseDown(Button, Shift, X, Y)
End Sub
Private Sub UserControl_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim pt               As POINTAPI
    Dim Hovered          As Boolean                         '>> False Or Ture
    With UserControl
        GetCursorPos pt
        ScreenToClient .hWnd, pt
        '>> We Don't Need To Check Postion Mouse
        If Not UserControl.Ambient.UserMode Then Exit Sub
        ' See If The Mouse Is Over The Control
        If (pt.X < 0) Or (pt.Y < 0) Or (pt.X > .ScaleWidth) Or (pt.Y > .ScaleHeight) Then
            Hovered = False                                '>> Mouse Is Leave Of Button
            ReleaseCapture
        Else
            Hovered = True                                 '>> Mouse Over Button
            SetCapture .hWnd
        End If
        ' Redraw The Control If Necessary
        If MouseMove <> Hovered Then
            MouseMove = Hovered
            MouseDown = False
            UserControl_Paint
        End If
    End With
    RaiseEvent MouseMove(Button, Shift, X, Y)
End Sub
Private Sub UserControl_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If GetCapture() <> UserControl.hWnd Then SetCapture UserControl.hWnd
    Dim Pressed          As Boolean
    ' Raise The Click Event If The Button Is Currently Pressed
    If Pressed Then RaiseEvent Click
    Pressed = MouseDown
    ' Stop The Button Pressed
    MouseDown = False
    UserControl_Paint
    RaiseEvent MouseUp(Button, Shift, X, Y)
End Sub
Private Sub UserControl_InitProperties()
    'On Local Error Resume Next
    UserControl.Width = 1200
    UserControl.Height = 500

    mButtonShape = Rectangle
    mButtonStyle = Visual
    mButtonStyleColors = SingleColor
    mButtonTheme = NoTheme
    mButtonType = Button
    mCaptionAlignment = CenterCaption
    mCaptionStyle = Normal
    mCaptionEffect = Default
    mDropDown = None
    mPictureAlignment = CenterPicture

    mBackColor = vbButtonFace
    mBackColorPressed = vbButtonFace
    mBackColorHover = vbButtonFace

    'mBorderColor = vbBlack
    'mBorderColorHover = vbBlack
    'mBorderColorPressed = vbBlack

    mForeColor = vbBlack
    mForeColorPressed = vbRed
    mForeColorHover = vbBlue
    mEffectColor = vbWhite

    mCaption = Ambient.DisplayName
    mFocusRect = True
    mValue = False
    mHandPointer = False
    Set mPicture = Nothing
    mPictureGray = False
    UserControl.Enabled = True
    UserControl.Font = "Tahoma"
    UserControl_Paint
End Sub
Private Sub UserControl_OLECompleteDrag(Effect As Long)
    RaiseEvent OLECompleteDrag(Effect)
End Sub
Private Sub UserControl_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
    RaiseEvent OLEDragDrop(Data, Effect, Button, Shift, X, Y)
End Sub
Private Sub UserControl_OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer)
    RaiseEvent OLEDragOver(Data, Effect, Button, Shift, X, Y, State)
End Sub
Private Sub UserControl_OLEGiveFeedback(Effect As Long, DefaultCursors As Boolean)
    RaiseEvent OLEGiveFeedback(Effect, DefaultCursors)
End Sub
Private Sub UserControl_OLESetData(Data As DataObject, DataFormat As Integer)
    RaiseEvent OLESetData(Data, DataFormat)
End Sub
Private Sub UserControl_OLEStartDrag(Data As DataObject, AllowedEffects As Long)
    RaiseEvent OLEStartDrag(Data, AllowedEffects)
End Sub
Private Sub UserControl_Paint()
    'On Local Error Resume Next
    With UserControl
        .AutoRedraw = True
        .ScaleMode = 3
        .Cls
        '............................................................
        '>> Width = Height To Nice Show Border's.
        '............................................................
        If .Width < 375 Then .Width = 375
        If .Height < 375 Then .Height = 375
        If Not mButtonShape = Rectangle Then
            If Not mButtonShape = RoundedRectangle Then
                If .Width > .Height Then .Height = .Width Else .Height = .Width
            End If
        End If
        '............................................................
        '>> Change MousePointer To HandCursor
        '............................................................
        If MouseDown Then
            If mFocused And mHandPointer Then SetCursor LoadCursor(0, CURSOR_HAND)
        ElseIf MouseMove Then
            If mHandPointer Then SetCursor LoadCursor(0, CURSOR_HAND)
        Else
            If mFocused And mHandPointer Then SetCursor LoadCursor(0, CURSOR_HAND)
        End If
        '............................................................
        '>> Use Value For Viwe CheckBox(ButtonPressed) At TimeShow
        '............................................................
        Select Case mButtonType
            Case Is = CheckBox
                If mValue Then MouseDown = True
        End Select
        '............................................................
        '>> Change BackColor When Mouse Hovered Or Pressed Or Off
        '............................................................
        Dim BkRed(0 To 1), BkGreen(0 To 1), BkBlue(0 To 1) As Long
        Dim vert(1) As TRIVERTEX, GRect As GRADIENT_RECT
        If MouseDown Then
            ConvertRGB mBackColor, BkRed(0), BkGreen(0), BkBlue(0)
            ConvertRGB mBackColorPressed, BkRed(1), BkGreen(1), BkBlue(1)
        ElseIf MouseMove Then
            ConvertRGB mBackColor, BkRed(0), BkGreen(0), BkBlue(0)
            ConvertRGB mBackColorHover, BkRed(1), BkGreen(1), BkBlue(1)
        Else
            ConvertRGB mBackColor, BkRed(0), BkGreen(0), BkBlue(0)
            ConvertRGB mBackColorPressed, BkRed(1), BkGreen(1), BkBlue(1)
        End If
        vert(0).Red = val("&H" & Hex(BkRed(0)) & "00"): vert(0).Green = val("&H" & Hex(BkGreen(0)) & "00"): vert(0).Blue = val("&H" & Hex(BkBlue(0)) & "00"): vert(0).Alpha = 0&
        vert(1).Red = val("&H" & Hex(BkRed(1)) & "00"): vert(1).Green = val("&H" & Hex(BkGreen(1)) & "00"): vert(1).Blue = val("&H" & Hex(BkBlue(1)) & "00"): vert(1).Alpha = 0&
        GRect.UpperLeft = 1: GRect.LowerRight = 0
        '............................................................
        '>> ButtonStyleColors,Transparent,SingleColour
        '>> GradientHorizontalFill,VerticalGradientFill
        '>> SwapHorizontalFill,SwapVerticalFill,GradientTubeCenter_H
        '>> ,GradientTubeTopBottom_H,GradientTubeCenter_V
        '>> GradientTubeTopBottom_V
        '............................................................
        Select Case mButtonStyleColors
            Case Is = Transparent
                .BackStyle = 0
            Case Is = SingleColor
                .BackStyle = 1
                If MouseDown Then
                    .BackColor = mBackColorPressed
                Else
                    If MouseMove Then
                        .BackColor = mBackColorHover
                    Else
                        .BackColor = mBackColor
                    End If
                End If
            Case Is = Gradient_H
                .BackStyle = 1
                vert(0).X = 0: vert(0).Y = .ScaleHeight
                vert(1).X = .ScaleWidth: vert(1).Y = 0
                GradientFill .hdc, vert(0), 2, GRect, 1, GRADIENT_FILL_RECT_H
            Case Is = Gradient_V
                .BackStyle = 1
                vert(0).X = 0: vert(0).Y = .ScaleHeight
                vert(1).X = .ScaleWidth: vert(1).Y = 0
                GradientFill .hdc, vert(0), 2, GRect, 1, GRADIENT_FILL_RECT_V
            Case Is = TubeCenter_H
                .BackStyle = 1
                vert(0).X = .ScaleWidth: vert(0).Y = 0
                vert(1).X = 0: vert(1).Y = .ScaleHeight / 2
                GradientFill .hdc, vert(0), 2, GRect, 1, GRADIENT_FILL_RECT_V
                vert(0).X = 0: vert(0).Y = .ScaleHeight
                vert(1).X = .ScaleWidth: vert(1).Y = .ScaleHeight / 2
                GradientFill .hdc, vert(0), 2, GRect, 1, GRADIENT_FILL_RECT_V
            Case Is = TubeTopBottom_H
                .BackStyle = 1
                vert(0).X = 0: vert(0).Y = .ScaleHeight / 2
                vert(1).X = .ScaleWidth: vert(1).Y = 0
                GradientFill .hdc, vert(0), 2, GRect, 1, GRADIENT_FILL_RECT_V
                vert(0).X = 0: vert(0).Y = .ScaleHeight / 2
                vert(1).X = .ScaleWidth: vert(1).Y = .ScaleHeight
                GradientFill .hdc, vert(0), 2, GRect, 1, GRADIENT_FILL_RECT_V
            Case Is = TubeCenter_V
                .BackStyle = 1
                vert(0).X = 0: vert(0).Y = 0
                vert(1).X = .ScaleWidth / 2: vert(1).Y = .ScaleHeight
                GradientFill .hdc, vert(0), 2, GRect, 1, GRADIENT_FILL_RECT_H
                vert(0).X = .ScaleWidth: vert(0).Y = .ScaleHeight
                vert(1).X = .ScaleWidth / 2: vert(1).Y = 0
                GradientFill .hdc, vert(0), 2, GRect, 1, GRADIENT_FILL_RECT_H
            Case Is = TubeTopBottom_V
                .BackStyle = 1
                vert(0).X = .ScaleWidth / 2: vert(0).Y = 0
                vert(1).X = 0: vert(1).Y = .ScaleHeight
                GradientFill .hdc, vert(0), 2, GRect, 1, GRADIENT_FILL_RECT_H
                vert(0).X = .ScaleWidth / 2: vert(0).Y = .ScaleHeight
                vert(1).X = .ScaleWidth: vert(1).Y = 0
                GradientFill .hdc, vert(0), 2, GRect, 1, GRADIENT_FILL_RECT_H
        End Select
        '.............................................................
        '>> ButtonStyle,Visual, Flat,OverFlat,Java,XpOffice,WinXp
        '>> Vista,Glass
        '>> Set BorderColors To ButtonStyle At Hover,Press,Off
        '.............................................................
        Select Case mButtonStyle
            Case Is = Visual
                mBorderColor = vb3DDKShadow
                mBorderColorHover = vb3DDKShadow
                mBorderColorPressed = vb3DHighlight
            Case Is = Flat
                mBorderColor = vb3DDKShadow
                mBorderColorHover = vb3DDKShadow
                mBorderColorPressed = vb3DHighlight
            Case Is = OverFlat
                mBorderColor = mBackColor    '>> Visible BorderColor At RunTime
                mBorderColorHover = vb3DDKShadow
                mBorderColorPressed = vb3DHighlight
            Case Is = Java
                mBorderColor = vbButtonShadow
                mBorderColorHover = vbButtonShadow
                mBorderColorPressed = vbButtonShadow
            Case Is = XPOffice
                mBorderColor = vbButtonFace
                mBorderColorHover = vbBlack
                mBorderColorPressed = vbBlack
                '............................................................
                '>> Change BackColor XpOffice When Mouse Hovered,Pressed,Off
                '............................................................
                If Not mButtonStyleColors = Transparent Then
                    If MouseDown Then
                        ConvertRGB &HA57F71, BkRed(0), BkGreen(0), BkBlue(0)
                        ConvertRGB mBackColorPressed, BkRed(1), BkGreen(1), BkBlue(1)
                    ElseIf MouseMove Then
                        ConvertRGB &HAC9891, BkRed(0), BkGreen(0), BkBlue(0)
                        ConvertRGB mBackColorHover, BkRed(1), BkGreen(1), BkBlue(1)
                    Else
                        ConvertRGB mBackColor, BkRed(0), BkGreen(0), BkBlue(0)
                        ConvertRGB mBackColor, BkRed(1), BkGreen(1), BkBlue(1)
                    End If
                    vert(0).Red = val("&H" & Hex(BkRed(0)) & "00"): vert(0).Green = val("&H" & Hex(BkGreen(0)) & "00"): vert(0).Blue = val("&H" & Hex(BkBlue(0)) & "00"): vert(0).Alpha = 0&
                    vert(1).Red = val("&H" & Hex(BkRed(1)) & "00"): vert(1).Green = val("&H" & Hex(BkGreen(1)) & "00"): vert(1).Blue = val("&H" & Hex(BkBlue(1)) & "00"): vert(1).Alpha = 0&
                    GRect.UpperLeft = 1: GRect.LowerRight = 0
                    vert(0).X = 0: vert(0).Y = .ScaleHeight
                    vert(1).X = .ScaleWidth: vert(1).Y = 0
                    GradientFill .hdc, vert(0), 2, GRect, 1, GRADIENT_FILL_RECT_V
                End If
            Case Is = WinXp
                mBorderColor = vbBlack
                mBorderColorHover = vbBlack
                mBorderColorPressed = vbBlack
                '............................................................
                '>> Change BackColor WinXp When Mouse Hovered,Pressed,Off
                '............................................................
                If Not mButtonStyleColors = Transparent Then
                    If MouseDown Then
                        ConvertRGB mBackColor, BkRed(0), BkGreen(0), BkBlue(0)
                        ConvertRGB &HE0E6E6, BkRed(1), BkGreen(1), BkBlue(1)
                    ElseIf .Enabled Then
                        ConvertRGB mBackColor, BkRed(0), BkGreen(0), BkBlue(0)
                        ConvertRGB Me.BackColorPressed, BkRed(1), BkGreen(1), BkBlue(1)
                    Else
                        ConvertRGB &HDBE7E7, BkRed(0), BkGreen(0), BkBlue(0)
                        ConvertRGB &HDBE7E7, BkRed(1), BkGreen(1), BkBlue(1)
                        mBorderColor = &H8DABAB
                    End If
                    vert(0).Red = val("&H" & Hex(BkRed(0)) & "00"): vert(0).Green = val("&H" & Hex(BkGreen(0)) & "00"): vert(0).Blue = val("&H" & Hex(BkBlue(0)) & "00"): vert(0).Alpha = 0&
                    vert(1).Red = val("&H" & Hex(BkRed(1)) & "00"): vert(1).Green = val("&H" & Hex(BkGreen(1)) & "00"): vert(1).Blue = val("&H" & Hex(BkBlue(1)) & "00"): vert(1).Alpha = 0&
                    GRect.UpperLeft = 1: GRect.LowerRight = 0
                    vert(0).X = 0: vert(0).Y = .ScaleHeight
                    vert(1).X = .ScaleWidth: vert(1).Y = 0
                    GradientFill .hdc, vert(0), 2, GRect, 1, GRADIENT_FILL_RECT_V
                End If
            Case Is = Vista
                mBorderColor = &H8F8F8E
                mBorderColorHover = &HB17F3C
                mBorderColorPressed = &H5C411D
                '............................................................
                '>> Change BackColor Vista When Mouse Hovered,Pressed,Off
                '............................................................
                If Me.ButtonStyle = Vista And Not Me.ButtonStyleColors = Transparent Then
                    If MouseDown Then
                        ConvertRGB &HF8ECD5, BkRed(1), BkGreen(1), BkBlue(1)
                        ConvertRGB mBackColorPressed, BkRed(0), BkGreen(0), BkBlue(0)
                    ElseIf MouseMove Then
                        ConvertRGB &HFEFCF7, BkRed(1), BkGreen(1), BkBlue(1)
                        ConvertRGB mBackColorHover, BkRed(0), BkGreen(0), BkBlue(0)
                    ElseIf .Enabled Then
                        ConvertRGB &HEFEFEF, BkRed(1), BkGreen(1), BkBlue(1)
                        ConvertRGB mBackColor, BkRed(0), BkGreen(0), BkBlue(0)
                    Else
                        ConvertRGB &HF4F4F4, BkRed(1), BkGreen(1), BkBlue(1)
                        ConvertRGB &HF0F0F0, BkRed(0), BkGreen(0), BkBlue(0)
                        mBorderColor = &HB5B2AD
                    End If
                    vert(0).Red = val("&H" & Hex(BkRed(0)) & "00"): vert(0).Green = val("&H" & Hex(BkGreen(0)) & "00"): vert(0).Blue = val("&H" & Hex(BkBlue(0)) & "00"): vert(0).Alpha = 0&
                    vert(1).Red = val("&H" & Hex(BkRed(1)) & "00"): vert(1).Green = val("&H" & Hex(BkGreen(1)) & "00"): vert(1).Blue = val("&H" & Hex(BkBlue(1)) & "00"): vert(1).Alpha = 0&
                    GRect.UpperLeft = 1: GRect.LowerRight = 0
                    If mButtonShape = Top_Triangle Or mButtonShape = Down_Triangle _
                            Or mButtonShape = top_Arrow Or mButtonShape = Down_Arrow Then
                        vert(0).X = .ScaleWidth / 1.5: vert(0).Y = 0
                        vert(1).X = 0: vert(1).Y = .ScaleHeight
                        GradientFill .hdc, vert(0), 2, GRect, 1, GRADIENT_FILL_RECT_H
                        vert(0).X = .ScaleWidth / 2: vert(0).Y = .ScaleHeight
                        vert(1).X = .ScaleWidth + 25: vert(1).Y = 0
                        GradientFill .hdc, vert(0), 2, GRect, 1, GRADIENT_FILL_RECT_H
                    Else
                        vert(0).X = 0: vert(0).Y = .ScaleHeight / 1.5
                        vert(1).X = .ScaleWidth: vert(1).Y = 0
                        GradientFill .hdc, vert(0), 2, GRect, 1, GRADIENT_FILL_RECT_V
                        vert(0).X = 0: vert(0).Y = .ScaleHeight / 2
                        vert(1).X = .ScaleWidth: vert(1).Y = .ScaleHeight + 25
                        GradientFill .hdc, vert(0), 2, GRect, 1, GRADIENT_FILL_RECT_V
                    End If
                End If
            Case Is = Glass
                mBorderColor = mBackColor
                mBorderColorHover = mBackColorHover
                mBorderColorPressed = mBackColorPressed
                '............................................................
                '>> Change BackColor Glass When Mouse Hovered,Pressed,Off
                '............................................................
                If Not mButtonStyleColors = Transparent Then
                    If MouseDown Then
                        ConvertRGB vbWhite, BkRed(1), BkGreen(1), BkBlue(1)
                        ConvertRGB mBackColorPressed, BkRed(0), BkGreen(0), BkBlue(0)
                    ElseIf MouseMove Then
                        ConvertRGB vbWhite, BkRed(1), BkGreen(1), BkBlue(1)
                        ConvertRGB mBackColorHover, BkRed(0), BkGreen(0), BkBlue(0)
                    ElseIf .Enabled Then
                        ConvertRGB vbWhite, BkRed(1), BkGreen(1), BkBlue(1)
                        ConvertRGB mBackColor, BkRed(0), BkGreen(0), BkBlue(0)
                    Else
                        ConvertRGB vbWhite, BkRed(1), BkGreen(1), BkBlue(1)
                        ConvertRGB &HA4B6B7, BkRed(0), BkGreen(0), BkBlue(0)
                        mBorderColor = &HA4B6B7
                    End If
                    vert(0).Red = val("&H" & Hex(BkRed(0)) & "00"): vert(0).Green = val("&H" & Hex(BkGreen(0)) & "00"): vert(0).Blue = val("&H" & Hex(BkBlue(0)) & "00"): vert(0).Alpha = 0&
                    vert(1).Red = val("&H" & Hex(BkRed(1)) & "00"): vert(1).Green = val("&H" & Hex(BkGreen(1)) & "00"): vert(1).Blue = val("&H" & Hex(BkBlue(1)) & "00"): vert(1).Alpha = 0&
                    GRect.UpperLeft = 1: GRect.LowerRight = 0
                    If mButtonShape = Top_Triangle Or mButtonShape = Down_Triangle _
                            Or mButtonShape = top_Arrow Or mButtonShape = Down_Arrow Then
                        vert(0).X = .ScaleWidth: vert(0).Y = 0
                        vert(1).X = -.ScaleWidth / 6: vert(1).Y = .ScaleHeight
                        GradientFill .hdc, vert(0), 2, GRect, 1, GRADIENT_FILL_RECT_H
                        vert(0).X = .ScaleWidth / 2: vert(0).Y = .ScaleHeight
                        vert(1).X = .ScaleWidth + .ScaleWidth / 3: vert(1).Y = 0
                        GradientFill .hdc, vert(0), 2, GRect, 1, GRADIENT_FILL_RECT_H
                    Else
                        vert(0).X = 0: vert(0).Y = .ScaleHeight
                        vert(1).X = .ScaleWidth: vert(1).Y = -.ScaleHeight / 6
                        GradientFill .hdc, vert(0), 2, GRect, 1, GRADIENT_FILL_RECT_V
                        vert(0).X = 0: vert(0).Y = .ScaleHeight / 2
                        vert(1).X = .ScaleWidth: vert(1).Y = .ScaleHeight + .ScaleHeight / 3
                        GradientFill .hdc, vert(0), 2, GRect, 1, GRADIENT_FILL_RECT_V
                    End If
                End If
        End Select
        '............................................................
        '>> Get Postion Picture
        '............................................................
        If mPicture Is Nothing Then
            PicturePos(1).X = 0
            PicturePos(1).Y = 0
        Else
            PicturePos(1).X = ScaleX(mPicture.Width, vbHimetric, vbPixels)
            PicturePos(1).Y = ScaleY(mPicture.Height, vbHimetric, vbPixels)
            '............................................................
            '>> PictureAlignment,Top PictureLeft Picture,Center Picture
            '>> Right Picture,Bottom Picture
            '............................................................
            Select Case mPictureAlignment
                Case Is = TopPicture
                    PicturePos(0).X = (.ScaleWidth - PicturePos(1).X) / 2
                    PicturePos(0).Y = (.ScaleHeight - PicturePos(1).Y) / .ScaleHeight + 4
                Case Is = LeftPicture
                    PicturePos(0).X = (.ScaleWidth - PicturePos(1).X) / .ScaleWidth + 4
                    PicturePos(0).Y = (.ScaleHeight - PicturePos(1).Y) / 2
                Case Is = CenterPicture
                    PicturePos(0).X = (.ScaleWidth - PicturePos(1).X) / 2
                    PicturePos(0).Y = (.ScaleHeight - PicturePos(1).Y) / 2
                Case Is = RightPicture
                    PicturePos(0).X = (.ScaleWidth - PicturePos(1).X) - 5
                    PicturePos(0).Y = (.ScaleHeight - PicturePos(1).Y) / 2
                Case Is = BottomPicture
                    PicturePos(0).X = (.ScaleWidth - PicturePos(1).X) / 2
                    PicturePos(0).Y = (.ScaleHeight - PicturePos(1).Y) - 5
            End Select
            '............................................................
            '>> Moving The Picture When Mouse Hovered Or Pressed
            '............................................................
            If Enabled = True Then
                Dim GrPic As POINTAPI
                Dim Gray As Long
                If MouseDown Then
                    .PaintPicture mPicture, PicturePos(0).X + 1, PicturePos(0).Y + 1    '>> +1 Pixel To Top And Right
                ElseIf MouseMove Then
                    .PaintPicture mPicture, PicturePos(0).X, PicturePos(0).Y
                    '>> If mButtonStyle = XPOffice Then -1 Pixel About Postion Picture When Mouse Hovered
                    If mButtonStyle = XPOffice Then .PaintPicture mPicture, PicturePos(0).X - 1, PicturePos(0).Y - 1
                Else
                    .PaintPicture mPicture, PicturePos(0).X, PicturePos(0).Y
                    '>> Add Little Of Code's To Draw GrayScale Picture.
                    If mPictureGray = True Then
                        For GrPic.X = PicturePos(0).X To PicturePos(0).X + PicturePos(1).X
                            For GrPic.Y = PicturePos(0).Y To PicturePos(0).Y + PicturePos(1).Y
                                Gray = 255 And (GetPixel(.hdc, GrPic.X, GrPic.Y))
                                'Gray = vbRed And (GetPixel(.hDC, GrPic.X, GrPic.Y))
                                If GetPixel(.hdc, GrPic.X, GrPic.Y) <> mBackColor Then
                                    SetPixel hdc, GrPic.X, GrPic.Y, RGB(Gray, Gray, Gray)
                                End If
                            Next GrPic.Y
                        Next GrPic.X
                    End If
                End If
            Else                                               '>> If Enabled = False Then
                '............................................................
                '>> Converting Picture Colour's To Black Color If Button
                '>> Disabled
                '............................................................
                .PaintPicture mPicture, PicturePos(0).X, PicturePos(0).Y
                For GrPic.X = PicturePos(0).X To PicturePos(0).X + PicturePos(1).X
                    For GrPic.Y = PicturePos(0).Y To PicturePos(0).Y + PicturePos(1).Y
                        Gray = 255 And (GetPixel(.hdc, GrPic.X, GrPic.Y)) / 65536
                        If GetPixel(.hdc, GrPic.X, GrPic.Y) <> mBackColor Then
                            SetPixel hdc, GrPic.X, GrPic.Y, RGB(Gray, Gray, Gray)
                        End If
                    Next GrPic.Y
                Next GrPic.X
            End If
        End If
        '............................................................
        '>> CaptionAlignment,Get Size And Postion Text,Top Text
        '>>Left Text,Center Text,Right Text,Bottom Text
        '............................................................
        If Len(mCaption) < 0 Then Exit Sub
        Select Case mCaptionAlignment
            Case Is = TopCaption
                GetTextExtentPoint32 .hdc, mCaption, Len(mCaption), CaptionPos(1)
                CaptionPos(0).X = (.ScaleWidth - CaptionPos(1).X) / 2
                CaptionPos(0).Y = (.ScaleHeight - CaptionPos(1).Y) / .ScaleHeight + 5
            Case Is = LeftCaption
                GetTextExtentPoint32 .hdc, mCaption, Len(mCaption), CaptionPos(1)
                CaptionPos(0).X = (.ScaleWidth - CaptionPos(1).X) / .ScaleWidth + 5
                CaptionPos(0).Y = (.ScaleHeight - CaptionPos(1).Y) / 2
            Case Is = CenterCaption
                GetTextExtentPoint32 .hdc, mCaption, Len(mCaption), CaptionPos(1)
                CaptionPos(0).X = (.ScaleWidth - CaptionPos(1).X) / 2
                CaptionPos(0).Y = (.ScaleHeight - CaptionPos(1).Y) / 2
            Case Is = RightCaption
                GetTextExtentPoint32 .hdc, mCaption, Len(mCaption), CaptionPos(1)
                CaptionPos(0).X = (.ScaleWidth - CaptionPos(1).X) - 5
                CaptionPos(0).Y = (.ScaleHeight - CaptionPos(1).Y) / 2
            Case Is = BottomCaption
                GetTextExtentPoint32 .hdc, mCaption, Len(mCaption), CaptionPos(1)
                CaptionPos(0).X = (.ScaleWidth - CaptionPos(1).X) / 2
                CaptionPos(0).Y = (.ScaleHeight - CaptionPos(1).Y) - 5
        End Select
        '............................................................
        '>> CaptionEffect,Default,Raised,Sunken,Outline
        '............................................................
        Dim EFF          As POINTAPI
        If Enabled = True Then
            Select Case mCaptionEffect
                Case Is = Default
                    If MouseDown Then
                        .ForeColor = mForeColorPressed
                        TextOutA .hdc, CaptionPos(0).X + 1, CaptionPos(0).Y + 1, mCaption, Len(mCaption)
                    ElseIf MouseMove Then
                        .ForeColor = mForeColorHover
                        TextOutA .hdc, CaptionPos(0).X, CaptionPos(0).Y, mCaption, Len(mCaption)
                    Else
                        .ForeColor = mForeColor
                        TextOutA .hdc, CaptionPos(0).X, CaptionPos(0).Y, mCaption, Len(mCaption)
                    End If
                Case Is = Raised
                    EFF.X = -1                             '>> -1 Pixel From Down To Top
                    EFF.Y = -1                             '>> -1 Pixel From Right To Left
                    If MouseDown Then
                        .ForeColor = mEffectColor          '>> Vbwhite
                        TextOutW .hdc, CaptionPos(0).X + EFF.X + 1, CaptionPos(0).Y + EFF.Y + 1, mCaption, Len(mCaption)
                        .ForeColor = mForeColorPressed       '>> mForeColorPressed If You Like.
                        TextOutA .hdc, CaptionPos(0).X + 1, CaptionPos(0).Y + 1, mCaption, Len(mCaption)
                    ElseIf MouseMove Then
                        .ForeColor = mEffectColor          '>> Vbwhite
                        TextOutW .hdc, CaptionPos(0).X + EFF.X, CaptionPos(0).Y + EFF.Y, mCaption, Len(mCaption)
                        .ForeColor = mForeColorHover
                        TextOutA .hdc, CaptionPos(0).X, CaptionPos(0).Y, mCaption, Len(mCaption)
                    Else
                        .ForeColor = mEffectColor
                        TextOutW .hdc, CaptionPos(0).X + EFF.X, CaptionPos(0).Y + EFF.Y, mCaption, Len(mCaption)
                        .ForeColor = mForeColor
                        TextOutA .hdc, CaptionPos(0).X, CaptionPos(0).Y, mCaption, Len(mCaption)
                    End If
                Case Is = Sunken
                    EFF.X = 1                              '>> +1 Pixel From Top To Down
                    EFF.Y = 1                              '>> +1 Pixel From Left To Right
                    If MouseDown Then
                        .ForeColor = mEffectColor          '>> Vbwhite
                        TextOutW .hdc, CaptionPos(0).X + EFF.X + 1, CaptionPos(0).Y + EFF.Y + 1, mCaption, Len(mCaption)
                        .ForeColor = mForeColorPressed       '>> mForeColorPressed
                        TextOutA .hdc, CaptionPos(0).X + 1, CaptionPos(0).Y + 1, mCaption, Len(mCaption)
                    ElseIf MouseMove Then
                        .ForeColor = mEffectColor          '>> Vbwhite
                        TextOutW .hdc, CaptionPos(0).X + EFF.X, CaptionPos(0).Y + EFF.Y, mCaption, Len(mCaption)
                        .ForeColor = mForeColorHover
                        TextOutA .hdc, CaptionPos(0).X, CaptionPos(0).Y, mCaption, Len(mCaption)
                    Else
                        .ForeColor = mEffectColor
                        TextOutW .hdc, CaptionPos(0).X + EFF.X, CaptionPos(0).Y + EFF.Y, mCaption, Len(mCaption)
                        .ForeColor = mForeColor
                        TextOutA .hdc, CaptionPos(0).X, CaptionPos(0).Y, mCaption, Len(mCaption)
                    End If
                Case Is = Outline
                    Dim Out As POINTAPI
                    For Out.X = -1 To 1                    '>> -1 Pixel And +1 Pixel From Top To Down
                        For Out.Y = -1 To 1                '>> -1 Pixel And +1 Pixel From Left To Right
                            If MouseDown Then
                                .ForeColor = mEffectColor
                                TextOutW .hdc, CaptionPos(0).X + Out.X + 1, CaptionPos(0).Y + Out.Y + 1, mCaption, Len(mCaption)
                                .ForeColor = mForeColorPressed
                                TextOutA .hdc, CaptionPos(0).X + 1, CaptionPos(0).Y + 1, mCaption, Len(mCaption)
                            ElseIf MouseMove Then
                                .ForeColor = mEffectColor
                                TextOutW .hdc, CaptionPos(0).X + Out.X, CaptionPos(0).Y + Out.Y, mCaption, Len(mCaption)
                                .ForeColor = mForeColorHover
                                TextOutA .hdc, CaptionPos(0).X, CaptionPos(0).Y, mCaption, Len(mCaption)
                            Else
                                .ForeColor = mEffectColor
                                TextOutW .hdc, CaptionPos(0).X + Out.X, CaptionPos(0).Y + Out.Y, mCaption, Len(mCaption)
                                .ForeColor = mForeColor
                                TextOutA .hdc, CaptionPos(0).X, CaptionPos(0).Y, mCaption, Len(mCaption)
                            End If
                        Next Out.Y
                    Next Out.X
            End Select
        Else    '>> If Enabled = False Then >> Draw Disabled Text Sunken Look
            If mButtonStyle = Java Or mButtonStyle = WinXp Or _
                    mButtonStyle = Vista Or mButtonStyle = Glass Then
                .ForeColor = vb3DShadow
                TextOutA .hdc, CaptionPos(0).X, CaptionPos(0).Y, mCaption, Len(mCaption)
            Else    '>> If Enabled = False Then >> Draw Disabled Text Sunken Look
                .ForeColor = vb3DHighlight
                TextOutW .hdc, CaptionPos(0).X + 1, CaptionPos(0).Y + 1, mCaption, Len(mCaption)
                .ForeColor = vb3DShadow
                TextOutA .hdc, CaptionPos(0).X, CaptionPos(0).Y, mCaption, Len(mCaption)
            End If
        End If
        '............................................................
        '>> Change ForeColor When Mouse Hovered Or Pressed Or Off
        '............................................................
        Dim TotalRed(1), TotalGreen(1), TotalBlue(1) As Long
        Dim R(1), G(1), B(1) As Long
        Dim FrRed, FrGreen, FrBlue As Integer
        Dim Pos(1)       As POINTAPI
        Dim Fore         As POINTAPI
        '............................................................
        '>> CaptionStyle,SingleColour,GradientHorizontalFill
        '>> GradientVerticalFill
        '............................................................
        Select Case mCaptionStyle
            Case Is = Normal                      '>> SingleColour >> MouseOff,MouseMove,MouseDown
                'We Don't Need To Any More Event's Here
                '>> Look To Event's '>> mCaptionEffect = Default
            Case Is = HorizontalFill                       '>> GradientFill Len(Caption)
                If MouseDown Then
                    ConvertRGB mForeColor, R(1), G(1), B(1)
                    ConvertRGB mForeColorPressed, R(0), G(0), B(0)
                ElseIf MouseMove Then
                    ConvertRGB mForeColor, R(1), G(1), B(1)
                    ConvertRGB mForeColorHover, R(0), G(0), B(0)
                Else
                    ConvertRGB mForeColor, R(1), G(1), B(1)
                    ConvertRGB mForeColorPressed, R(0), G(0), B(0)
                End If
                For Fore.X = CaptionPos(0).X To CaptionPos(0).X + CaptionPos(1).X
                    For Fore.Y = CaptionPos(0).Y To CaptionPos(0).Y + CaptionPos(1).Y
                        TotalRed(0) = (R(0) - R(1)) / .ScaleWidth * Fore.X
                        TotalGreen(0) = (G(0) - G(1)) / .ScaleWidth * Fore.X
                        TotalBlue(0) = (B(0) - B(1)) / .ScaleWidth * Fore.X
                        FrRed = R(1) + TotalRed(0)
                        FrGreen = G(1) + TotalGreen(0)
                        FrBlue = B(1) + TotalBlue(0)
                        If GetPixel(hdc, Fore.X, Fore.Y) = .ForeColor Then
                            'If GetPixel(hdc, Fore.X, Fore.Y) <> .ForeColor Then'>> For Show Len(Caption) Fill
                            SetPixel .hdc, Fore.X, Fore.Y, RGB(FrRed, FrGreen, FrBlue)
                            R(1) = R(1) + TotalRed(1)
                            G(1) = G(1) + TotalGreen(1)
                            B(1) = B(1) + TotalBlue(1)
                        End If
                    Next Fore.Y
                Next Fore.X
            Case Is = VerticalFill
                If MouseDown Then
                    ConvertRGB mForeColor, R(0), G(0), B(0)
                    ConvertRGB mForeColorPressed, R(1), G(1), B(1)
                ElseIf MouseMove Then
                    ConvertRGB mForeColor, R(0), G(0), B(0)
                    ConvertRGB mForeColorHover, R(1), G(1), B(1)
                Else
                    ConvertRGB mForeColor, R(0), G(0), B(0)
                    ConvertRGB mForeColorPressed, R(1), G(1), B(1)
                End If
                For Fore.X = CaptionPos(0).X To CaptionPos(0).X + CaptionPos(1).X
                    For Fore.Y = CaptionPos(0).Y To CaptionPos(0).Y + CaptionPos(1).Y
                        TotalRed(0) = (R(0) - R(1)) / .ScaleHeight * Fore.Y
                        TotalGreen(0) = (G(0) - G(1)) / .ScaleHeight * Fore.Y
                        TotalBlue(0) = (B(0) - B(1)) / .ScaleHeight * Fore.Y
                        FrRed = R(1) + TotalRed(0)
                        FrGreen = G(1) + TotalGreen(0)
                        FrBlue = B(1) + TotalBlue(0)
                        If GetPixel(hdc, Fore.X, Fore.Y) = .ForeColor Then
                            SetPixel .hdc, Fore.X, Fore.Y, RGB(FrRed, FrGreen, FrBlue)
                            R(1) = R(1) + TotalRed(1)
                            G(1) = G(1) + TotalGreen(1)
                            B(1) = B(1) + TotalBlue(1)
                        End If
                    Next Fore.Y
                Next Fore.X
        End Select
        .MaskColor = .BackColor                            '>> Change ButtonStyleColor From Opaque To Transparent
        '............................................................
        '>> Change BorderColor When Mouse Hovered Or Pressed Or Off
        '............................................................
        If MouseDown Then
            .ForeColor = mBorderColorPressed
        ElseIf MouseMove Then
            .ForeColor = mBorderColorHover
        Else
            .ForeColor = mBorderColor
        End If
        '............................................................
        '>> Calling ButtonShape's
        '............................................................
        Select Case mButtonShape
            Case Is = Rectangle: Redraw_Rectangle
            Case Is = RoundedRectangle: Redraw_RoundedRectangle
            Case Is = Round: Redraw_Round
            Case Is = Diamond: Redraw_Diamond
            Case Is = Top_Triangle: Redraw_Top_Triangle
            Case Is = Left_Triangle: Redraw_Left_Triangle
            Case Is = Right_Triangle: Redraw_Right_Triangle
            Case Is = Down_Triangle: Redraw_Down_Triangle
            Case Is = top_Arrow: Redraw_Top_Arrow
            Case Is = Left_Arrow: Redraw_Left_Arrow
            Case Is = Right_Arrow: Redraw_Right_Arrow
            Case Is = Down_Arrow: Redraw_Down_Arrow
        End Select
        '............................................................
        '>> Use GetPixel And SetPixel For Make Point's On FocusRect.
        '............................................................
        If Not mButtonStyle = Java And mFocusRect And mFocused Then
            If Not mButtonStyle = WinXp And mFocusRect And mFocused Then
                If Not mButtonStyle = Vista And mFocusRect And mFocused Then
                    For Fo.X = 3 To .ScaleWidth - 3 Step 2
                        For Fo.Y = 3 To .ScaleHeight - 3 Step 2
                            If GetPixel(.hdc, Fo.X, Fo.Y) = .ForeColor Then SetPixel .hdc, Fo.X, Fo.Y, vbBlack
                        Next Fo.Y: Next Fo.X
                    For Fo.X = 2 To .ScaleWidth - 2 Step 2
                        For Fo.Y = 2 To .ScaleHeight - 2 Step 2
                            If GetPixel(.hdc, Fo.X, Fo.Y) = .ForeColor Then SetPixel .hdc, Fo.X, Fo.Y, vbBlack
                        Next Fo.Y: Next Fo.X
                End If
            End If
        End If
        '............................................................
        '>> Draw FocusRect Java About The Text.
        '............................................................
        If Len(mCaption) > 0 Then
            If mButtonStyle = Java And mFocusRect And mFocused Then
                .ForeColor = BDR_FOCUSRECT_JAVA
                RoundRect hdc, CaptionPos(1).X + CaptionPos(0).X + 2, CaptionPos(1).Y + CaptionPos(0).Y + 2, CaptionPos(0).X - 3, CaptionPos(0).Y - 2, 0, 0
            End If
        End If
        '............................................................
        '>> DropDown,Left DropDown,Right DropDown
        '............................................................
        Dim Flags(1)     As POINTAPI
        Select Case mDropDown
            Case Is = LeftDropDown
                Flags(0).X = 2
                Flags(0).Y = .ScaleHeight / 2 + Flags(0).Y / .ScaleHeight - 8
            Case Is = RightDropDown
                Flags(0).X = .ScaleWidth - 21
                Flags(0).Y = .ScaleHeight / 2 + Flags(0).Y / .ScaleHeight - 8
        End Select
        '............................................................
        '>> DropDown >> Left DropDown,Right DropDown
        '............................................................
        If Not mDropDown = None Then                       '>> So If mDropDown=LeftDropDown Or RightDropDown then
            .ForeColor = vbBlack                           '>> mForeColor If You Like.
            'Drwa Chevron
            MoveToEx .hdc, Flags(0).X + 6, Flags(0).Y + 5, Flags(1)
            LineTo .hdc, Flags(0).X + 9, Flags(0).Y + 8
            LineTo .hdc, Flags(0).X + 13, Flags(0).Y + 4
            MoveToEx .hdc, Flags(0).X + 7, Flags(0).Y + 5, Flags(1)
            LineTo .hdc, Flags(0).X + 9, Flags(0).Y + 7
            LineTo .hdc, Flags(0).X + 12, Flags(0).Y + 4
            MoveToEx .hdc, Flags(0).X + 6, Flags(0).Y + 9, Flags(1)
            LineTo .hdc, Flags(0).X + 9, Flags(0).Y + 12
            LineTo .hdc, Flags(0).X + 13, Flags(0).Y + 8
            MoveToEx .hdc, Flags(0).X + 7, Flags(0).Y + 9, Flags(1)
            LineTo .hdc, Flags(0).X + 9, Flags(0).Y + 11
            LineTo .hdc, Flags(0).X + 12, Flags(0).Y + 8
        End If
        .MaskPicture = .Image                              '>> Change ButtonStyleColor From Transparent To Opaque When Add Picture.
        .Refresh                                           '>> AutoRedraw=True
    End With
End Sub
Private Sub Redraw_Rectangle()
    Dim hRgn             As Long
    With UserControl
        '>> Rectangle >> Make Rectangle Shape.
        LineTo .hdc, 0, .ScaleHeight - 1
        LineTo .hdc, .ScaleWidth - 1, .ScaleHeight - 1
        LineTo .hdc, .ScaleWidth - 1, 0
        LineTo .hdc, 0, 0
        SetWindowRgn .hWnd, hRgn, False                    '>>Retune Original Shape To Button Without Cutting
        Select Case mButtonStyle
            Case Is = Visual                               '>> Rectangle >> Draw Visual Style.
                If MouseDown Then
                    .ForeColor = BDR_VISUAL
                    MoveToEx .hdc, .ScaleWidth - 1, 0, Lines
                    LineTo .hdc, 0, 0
                    LineTo .hdc, 0, .ScaleHeight - 1
                    .ForeColor = BDR_VISUAL1
                    MoveToEx .hdc, .ScaleWidth - 1, 1, Lines
                    LineTo .hdc, 1, 1
                    LineTo .hdc, 1, .ScaleHeight - 1
                Else
                    .ForeColor = BDR_VISUAL1
                    MoveToEx .hdc, .ScaleWidth - 2, 0, Lines
                    LineTo .hdc, .ScaleWidth - 2, .ScaleHeight - 2
                    LineTo .hdc, 0, .ScaleHeight - 2
                    .ForeColor = BDR_VISUAL2
                    MoveToEx .hdc, .ScaleWidth - 1, 0, Lines
                    LineTo .hdc, 0, 0
                    LineTo .hdc, 0, .ScaleHeight - 1
                End If
            Case Is = Flat                                 '>> Rectangle >> Draw Flat Style.
                If MouseDown Then
                    .ForeColor = BDR_FLAT1
                    MoveToEx .hdc, .ScaleWidth - 1, 0, Lines
                    LineTo .hdc, 0, 0
                    LineTo .hdc, 0, .ScaleHeight - 1
                Else
                    .ForeColor = BDR_FLAT2
                    MoveToEx .hdc, .ScaleWidth - 1, 0, Lines
                    LineTo .hdc, 0, 0
                    LineTo .hdc, 0, .ScaleHeight - 1
                End If
            Case Is = OverFlat                             '>> Rectangle >> Draw OverFlat Style.
                If MouseDown Then
                    .ForeColor = BDR_FLAT1
                    MoveToEx .hdc, .ScaleWidth - 1, 0, Lines
                    LineTo .hdc, 0, 0
                    LineTo .hdc, 0, .ScaleHeight - 1
                ElseIf MouseMove Then
                    .ForeColor = BDR_FLAT2
                    MoveToEx .hdc, .ScaleWidth - 1, 0, Lines
                    LineTo .hdc, 0, 0
                    LineTo .hdc, 0, .ScaleHeight - 1
                End If
            Case Is = Java                                 '>> Rectangle >> Draw Java Style.
                If .Enabled Then
                    .ForeColor = BDR_JAVA1
                    MoveToEx .hdc, .ScaleWidth - 2, 1, Lines
                    LineTo .hdc, .ScaleWidth - 2, .ScaleHeight - 2
                    LineTo .hdc, 2, .ScaleHeight - 2
                    .ForeColor = BDR_JAVA2
                    MoveToEx .hdc, .ScaleWidth - 1, 1, Lines
                    LineTo .hdc, 1, 1
                    LineTo .hdc, 1, .ScaleHeight - 1
                    LineTo .hdc, .ScaleWidth - 1, .ScaleHeight - 1
                    LineTo .hdc, .ScaleWidth - 1, 1
                End If
            Case Is = WinXp                                '>> Rectangle >> Draw WindowsXp Style
                If MouseDown Then
                    .ForeColor = BDR_PRESSED
                    MoveToEx .hdc, 2, .ScaleHeight - 3, Lines
                    LineTo .hdc, .ScaleWidth - 3, .ScaleHeight - 3
                    LineTo .hdc, .ScaleWidth - 3, 2
                ElseIf MouseMove Then
                    .ForeColor = BDR_GOLDXP_DARK
                    MoveToEx .hdc, .ScaleWidth - 2, .ScaleHeight - 2, Lines
                    LineTo .hdc, 0, .ScaleHeight - 2
                    .ForeColor = BDR_GOLDXP_NORMAL1
                    MoveToEx .hdc, 1, 1, Lines
                    LineTo .hdc, 1, .ScaleHeight - 3
                    LineTo .hdc, .ScaleWidth - 2, .ScaleHeight - 3
                    LineTo .hdc, .ScaleWidth - 2, 1
                    .ForeColor = BDR_GOLDXP_NORMAL2
                    MoveToEx .hdc, 2, 2, Lines
                    LineTo .hdc, 2, .ScaleHeight - 3
                    MoveToEx .hdc, .ScaleWidth - 3, .ScaleHeight - 4, Lines
                    LineTo .hdc, .ScaleWidth - 3, 2
                    .ForeColor = BDR_GOLDXP_LIGHT1
                    MoveToEx .hdc, 1, 1, Lines
                    LineTo .hdc, .ScaleWidth - 1, 1
                    .ForeColor = BDR_GOLDXP_LIGHT2
                    MoveToEx .hdc, 2, 2, Lines
                    LineTo .hdc, .ScaleWidth - 2, 2
                    '>> Rectangle >> Draw Xp FocusRect.
                ElseIf mButtonStyle = WinXp And mFocusRect And mFocused Then
                    .ForeColor = BDR_BLUEXP_DARK
                    MoveToEx .hdc, .ScaleWidth - 2, .ScaleHeight - 2, Lines
                    LineTo .hdc, 0, .ScaleHeight - 2
                    .ForeColor = BDR_BLUEXP_NORMAL1
                    MoveToEx .hdc, 1, 1, Lines
                    LineTo .hdc, 1, .ScaleHeight - 3
                    LineTo .hdc, .ScaleWidth - 2, .ScaleHeight - 3
                    LineTo .hdc, .ScaleWidth - 2, 1
                    .ForeColor = BDR_BLUEXP_NORMAL2
                    MoveToEx .hdc, 2, 2, Lines
                    LineTo .hdc, 2, .ScaleHeight - 3
                    MoveToEx .hdc, .ScaleWidth - 3, .ScaleHeight - 4, Lines
                    LineTo .hdc, .ScaleWidth - 3, 2
                    .ForeColor = BDR_BLUEXP_LIGHT1
                    MoveToEx .hdc, 1, 1, Lines
                    LineTo .hdc, .ScaleWidth - 1, 1
                    .ForeColor = BDR_BLUEXP_LIGHT2
                    MoveToEx .hdc, 2, 2, Lines
                    LineTo .hdc, .ScaleWidth - 2, 2
                End If
            Case Is = Vista    '>> Rectangle >> Draw Vista Style.
                If MouseDown Then
                    .ForeColor = BDR_VISTA2
                    MoveToEx .hdc, 1, 1, Lines
                    LineTo .hdc, 1, .ScaleHeight - 2
                    LineTo .hdc, .ScaleWidth - 2, .ScaleHeight - 2
                    LineTo .hdc, .ScaleWidth - 2, 1
                    LineTo .hdc, 1, 1
                Else
                    .ForeColor = BDR_VISTA1
                    MoveToEx .hdc, 1, 1, Lines
                    LineTo .hdc, 1, .ScaleHeight - 2
                    LineTo .hdc, .ScaleWidth - 2, .ScaleHeight - 2
                    LineTo .hdc, .ScaleWidth - 2, 1
                    LineTo .hdc, 1, 1
                    '>> Rectangle >> Draw Vista FocusRect.
                    If mButtonStyle = Vista And mFocusRect And mFocused Then
                        .ForeColor = BDR_FOCUSRECT_VISTA
                        MoveToEx .hdc, 1, 1, Lines
                        LineTo .hdc, 1, .ScaleHeight - 2
                        LineTo .hdc, .ScaleWidth - 2, .ScaleHeight - 2
                        LineTo .hdc, .ScaleWidth - 2, 1
                        LineTo .hdc, 1, 1
                    End If
                End If
        End Select
        '>> Rectangle >> Draw FocusRect.
        If Not mButtonStyle = Java And mFocusRect And mFocused Then
            If Not mButtonStyle = WinXp And mFocusRect And mFocused Then
                If Not mButtonStyle = Vista And mFocusRect And mFocused Then
                    .ForeColor = BDR_FOCUSRECT
                    MoveToEx .hdc, 4, 4, Lines
                    LineTo .hdc, 4, .ScaleHeight - 5
                    LineTo .hdc, .ScaleWidth - 5, .ScaleHeight - 5
                    LineTo .hdc, .ScaleWidth - 5, 4
                    LineTo .hdc, 4, 4
                End If
            End If
        End If
    End With
End Sub
Private Sub Redraw_RoundedRectangle()
    With UserControl
        '>> RoundedRectangle >> Make RoundedRectangle Shape.
        hRgn = CreateRoundRectRgn(0, 0, .ScaleWidth, .ScaleHeight, 15, 15)
        SetWindowRgn .hWnd, hRgn, True
        DeleteObject hRgn

        '>> RoundedRectangle >> Draw RoundedRectangle Shape.
        RoundRect hdc, 0, 0, .ScaleWidth - 1, .ScaleHeight - 1, 16, 16

        Select Case mButtonStyle
            Case Is = Visual                               '>> RoundedRectangle >> Draw Visual Style.
                If MouseDown Then
                    .ForeColor = BDR_VISUAL
                    MoveToEx .hdc, 10, 0, Lines
                    LineTo .hdc, .ScaleWidth - 8, 0
                    Arc .hdc, 17, 17, 0, 0, 10, 0, 0, 10
                    MoveToEx .hdc, 0, 10, Lines
                    LineTo .hdc, 0, .ScaleHeight - 10
                    Arc .hdc, 17, .ScaleHeight - 17, 0, .ScaleHeight - 1, -16, .ScaleHeight - 16, 9, .ScaleHeight
                    Arc .hdc, 16, .ScaleHeight - 16, 0, .ScaleHeight - 2, -16, .ScaleHeight - 16, 8, .ScaleHeight
                    .ForeColor = BDR_VISUAL1
                    MoveToEx .hdc, 10, 1, Lines
                    LineTo .hdc, .ScaleWidth - 8, 1
                    Arc .hdc, 17, 17, 1, 1, 10, 1, 1, 10
                    MoveToEx .hdc, 1, 10, Lines
                    LineTo .hdc, 1, .ScaleHeight - 10
                    Arc .hdc, 17, .ScaleHeight - 16, 1, .ScaleHeight - 2, -16, .ScaleHeight - 16, 9, .ScaleHeight - 1
                Else
                    .ForeColor = BDR_VISUAL1
                    RoundRect hdc, 0, 0, .ScaleWidth - 2, .ScaleHeight - 2, 15, 15
                    .ForeColor = BDR_VISUAL2
                    MoveToEx .hdc, 10, 0, Lines
                    LineTo .hdc, .ScaleWidth - 8, 0
                    Arc .hdc, 17, 17, 0, 0, 10, 0, 0, 10
                    MoveToEx .hdc, 0, 10, Lines
                    LineTo .hdc, 0, .ScaleHeight - 10
                    Arc .hdc, 17, .ScaleHeight - 17, 0, .ScaleHeight - 2, -16, .ScaleHeight - 16, 9, .ScaleHeight - 1
                    Arc .hdc, 17, .ScaleHeight - 17, 0, .ScaleHeight - 1, -16, .ScaleHeight - 16, 9, .ScaleHeight - 1
                End If
            Case Is = Flat                                 '>> RoundedRectangle >> Draw Flat Style.
                If MouseDown Then
                    .ForeColor = BDR_FLAT1
                    MoveToEx .hdc, 10, 0, Lines
                    LineTo .hdc, .ScaleWidth - 8, 0
                    Arc .hdc, 17, 17, 0, 0, 10, 0, 0, 10
                    MoveToEx .hdc, 0, 10, Lines
                    LineTo .hdc, 0, .ScaleHeight - 10
                    Arc .hdc, 17, .ScaleHeight - 17, 0, .ScaleHeight - 1, -16, .ScaleHeight - 16, 9, .ScaleHeight - 1
                Else
                    .ForeColor = BDR_FLAT2
                    MoveToEx .hdc, 10, 0, Lines
                    LineTo .hdc, .ScaleWidth - 8, 0
                    Arc .hdc, 17, 17, 0, 0, 10, 0, 0, 10
                    MoveToEx .hdc, 0, 10, Lines
                    LineTo .hdc, 0, .ScaleHeight - 10
                    Arc .hdc, 17, .ScaleHeight - 17, 0, .ScaleHeight - 1, -16, .ScaleHeight - 16, 9, .ScaleHeight - 1
                End If
            Case Is = OverFlat                             '>> RoundedRectangle >> Draw OverFlat Style.
                If MouseDown Then
                    .ForeColor = BDR_FLAT1
                    MoveToEx .hdc, 10, 0, Lines
                    LineTo .hdc, .ScaleWidth - 8, 0
                    Arc .hdc, 17, 17, 0, 0, 10, 0, 0, 10
                    MoveToEx .hdc, 0, 10, Lines
                    LineTo .hdc, 0, .ScaleHeight - 10
                    Arc .hdc, 17, .ScaleHeight - 17, 0, .ScaleHeight - 1, -16, .ScaleHeight - 16, 9, .ScaleHeight - 1
                ElseIf MouseMove Then
                    .ForeColor = BDR_FLAT2
                    MoveToEx .hdc, 10, 0, Lines
                    LineTo .hdc, .ScaleWidth - 8, 0
                    Arc .hdc, 17, 17, 0, 0, 10, 0, 0, 10
                    MoveToEx .hdc, 0, 10, Lines
                    LineTo .hdc, 0, .ScaleHeight - 10
                    Arc .hdc, 17, .ScaleHeight - 17, 0, .ScaleHeight - 1, -16, .ScaleHeight - 16, 9, .ScaleHeight - 1
                End If
            Case Is = Java                                 '>> RoundedRectangle >> Draw Java Style.
                If .Enabled Then
                    .ForeColor = BDR_JAVA1
                    RoundRect hdc, 0, 0, .ScaleWidth - 2, .ScaleHeight - 2, 16, 16
                    .ForeColor = BDR_JAVA2
                    RoundRect hdc, 1, 1, .ScaleWidth - 1, .ScaleHeight - 1, 16, 16
                End If
            Case Is = WinXp                                '>> RoundedRectangle >> Draw WindowsXp Style.
                If MouseDown Then
                    .ForeColor = BDR_PRESSED
                    Arc .hdc, .ScaleWidth - 17, .ScaleHeight - 17, .ScaleWidth - 3, .ScaleHeight - 3, .ScaleWidth - 10, .ScaleHeight - 3, .ScaleWidth - 2, .ScaleHeight - 10
                    MoveToEx .hdc, .ScaleWidth - 9, .ScaleHeight - 4, Lines
                    LineTo .hdc, 8, .ScaleHeight - 4
                    MoveToEx .hdc, .ScaleWidth - 4, 4, Lines
                    LineTo .hdc, .ScaleWidth - 4, .ScaleHeight - 9
                ElseIf MouseMove Then
                    .ForeColor = BDR_GOLDXP_DARK
                    Arc .hdc, 16, .ScaleHeight - 17, 1, .ScaleHeight - 2, -17, .ScaleHeight, 8, .ScaleHeight - 1
                    MoveToEx .hdc, .ScaleWidth - 8, .ScaleHeight - 3, Lines
                    LineTo .hdc, 8, .ScaleHeight - 3
                    Arc .hdc, .ScaleWidth - 17, .ScaleHeight - 17, .ScaleWidth - 2, .ScaleHeight - 2, .ScaleWidth - 10, .ScaleHeight - 2, .ScaleWidth - 1, .ScaleHeight - 10
                    .ForeColor = BDR_GOLDXP_NORMAL1
                    Arc .hdc, 17, .ScaleHeight - 18, 1, .ScaleHeight - 3, -18, .ScaleHeight, 10, .ScaleHeight - 1
                    MoveToEx .hdc, 1, 6, Lines
                    LineTo .hdc, 1, .ScaleHeight - 8
                    MoveToEx .hdc, .ScaleWidth - 8, .ScaleHeight - 4, Lines
                    LineTo .hdc, 8, .ScaleHeight - 4
                    Arc .hdc, .ScaleWidth - 17, .ScaleHeight - 17, .ScaleWidth - 3, .ScaleHeight - 3, .ScaleWidth - 10, .ScaleHeight - 2, .ScaleWidth - 1, .ScaleHeight - 10
                    MoveToEx .hdc, .ScaleWidth - 3, 6, Lines
                    LineTo .hdc, .ScaleWidth - 3, .ScaleHeight - 8
                    .ForeColor = BDR_GOLDXP_NORMAL2
                    MoveToEx .hdc, 2, 7, Lines
                    LineTo .hdc, 2, .ScaleHeight - 7
                    MoveToEx .hdc, .ScaleWidth - 4, 7, Lines
                    LineTo .hdc, .ScaleWidth - 4, .ScaleHeight - 7
                    Arc .hdc, 17, 17, 1, 1, 8, 0, 0, 8
                    Arc .hdc, .ScaleWidth - 17, 17, .ScaleWidth - 2, 1, .ScaleWidth - 1, 8, .ScaleWidth - 12, 1
                    Arc .hdc, .ScaleWidth - 17, 17, .ScaleWidth - 3, 2, .ScaleWidth - 1, 8, .ScaleWidth - 12, 1
                    Arc .hdc, 17, 17, 2, 2, 8, 0, 0, 8
                    .ForeColor = BDR_GOLDXP_LIGHT1
                    MoveToEx .hdc, 10, 1, Lines
                    LineTo .hdc, .ScaleWidth - 7, 1
                    .ForeColor = BDR_GOLDXP_LIGHT2
                    MoveToEx .hdc, 10, 2, Lines
                    LineTo .hdc, .ScaleWidth - 8, 2
                    '>> RoundedRectangle >> Draw Xp FocusRect.
                ElseIf mButtonStyle = WinXp And mFocusRect And mFocused Then
                    .ForeColor = BDR_BLUEXP_DARK
                    Arc .hdc, 16, .ScaleHeight - 17, 1, .ScaleHeight - 2, -17, .ScaleHeight, 8, .ScaleHeight - 1
                    MoveToEx .hdc, .ScaleWidth - 8, .ScaleHeight - 3, Lines
                    LineTo .hdc, 8, .ScaleHeight - 3
                    Arc .hdc, .ScaleWidth - 17, .ScaleHeight - 17, .ScaleWidth - 2, .ScaleHeight - 2, .ScaleWidth - 10, .ScaleHeight - 2, .ScaleWidth - 1, .ScaleHeight - 10
                    .ForeColor = BDR_BLUEXP_NORMAL1
                    Arc .hdc, 17, .ScaleHeight - 18, 1, .ScaleHeight - 3, -18, .ScaleHeight, 10, .ScaleHeight
                    MoveToEx .hdc, 1, 6, Lines
                    LineTo .hdc, 1, .ScaleHeight - 8
                    MoveToEx .hdc, .ScaleWidth - 8, .ScaleHeight - 4, Lines
                    LineTo .hdc, 8, .ScaleHeight - 4
                    Arc .hdc, .ScaleWidth - 17, .ScaleHeight - 17, .ScaleWidth - 3, .ScaleHeight - 3, .ScaleWidth - 10, .ScaleHeight - 2, .ScaleWidth - 1, .ScaleHeight - 10
                    MoveToEx .hdc, .ScaleWidth - 3, 6, Lines
                    LineTo .hdc, .ScaleWidth - 3, .ScaleHeight - 8
                    .ForeColor = BDR_BLUEXP_NORMAL2
                    MoveToEx .hdc, 2, 7, Lines
                    LineTo .hdc, 2, .ScaleHeight - 7
                    MoveToEx .hdc, .ScaleWidth - 4, 7, Lines
                    LineTo .hdc, .ScaleWidth - 4, .ScaleHeight - 7
                    Arc .hdc, 17, 17, 1, 1, 8, 0, 0, 8
                    Arc .hdc, .ScaleWidth - 17, 17, .ScaleWidth - 2, 1, .ScaleWidth - 1, 8, .ScaleWidth - 12, 1
                    Arc .hdc, .ScaleWidth - 17, 17, .ScaleWidth - 3, 2, .ScaleWidth - 1, 8, .ScaleWidth - 12, 1
                    Arc .hdc, 17, 17, 2, 2, 8, 0, 0, 8
                    .ForeColor = BDR_BLUEXP_LIGHT1
                    MoveToEx .hdc, 10, 1, Lines
                    LineTo .hdc, .ScaleWidth - 7, 1
                    .ForeColor = BDR_BLUEXP_LIGHT2
                    MoveToEx .hdc, 10, 2, Lines
                    LineTo .hdc, .ScaleWidth - 8, 2
                End If
            Case Is = Vista    '>> RoundedRectangle >> Draw Vista Style.
                If MouseDown Then
                    .ForeColor = BDR_VISTA2
                    RoundRect hdc, 1, 1, .ScaleWidth - 2, .ScaleHeight - 2, 14, 14
                Else
                    .ForeColor = BDR_VISTA1
                    RoundRect hdc, 1, 1, .ScaleWidth - 2, .ScaleHeight - 2, 14, 14
                    '>> RoundedRectangle >> Draw Vista FocusRect.
                    If mButtonStyle = Vista And mFocusRect And mFocused Then
                        .ForeColor = BDR_FOCUSRECT_VISTA
                        RoundRect hdc, 1, 1, .ScaleWidth - 2, .ScaleHeight - 2, 14, 14
                    End If
                End If
        End Select
        '>> RoundedRectangle >> Draw FocusRect.
        If Not mButtonStyle = Java And mFocusRect And mFocused Then
            If Not mButtonStyle = WinXp And mFocusRect And mFocused Then
                If Not mButtonStyle = Vista And mFocusRect And mFocused Then
                    .ForeColor = BDR_FOCUSRECT
                    RoundRect .hdc, 4, 4, .ScaleWidth - 5, .ScaleHeight - 5, 15, 15
                End If
            End If
        End If
    End With
End Sub
Private Sub Redraw_Round()
    With UserControl
        '>> Round >> Make Round Shape.
        'hRgn = CreateRoundRectRgn(0, 0, .ScaleWidth, .ScaleHeight, .ScaleWidth , .ScaleHeight )
        hRgn = CreateEllipticRgn(0, 0, .ScaleWidth, .ScaleHeight)
        SetWindowRgn .hWnd, hRgn, True
        DeleteObject hRgn

        '>> Round >> Draw Round Shape.
        RoundRect hdc, 1, 1, .ScaleWidth - 2, .ScaleHeight - 2, .ScaleWidth - 2, .ScaleHeight - 2

        Select Case mButtonStyle
            Case Is = Visual                               '>> Round >> Draw Visual Style.
                If MouseDown Then
                    .ForeColor = BDR_VISUAL
                    Arc .hdc, .ScaleWidth - 2, .ScaleHeight - 2, 1, 1, .ScaleWidth - 2, 1, 1, .ScaleHeight - 2
                    .ForeColor = BDR_VISUAL1
                    Arc .hdc, .ScaleWidth - 3, .ScaleHeight - 3, 2, 2, .ScaleWidth - 3, 2, 2, .ScaleHeight - 3
                Else
                    .ForeColor = BDR_VISUAL1
                    Arc .hdc, 1, 1, .ScaleWidth - 3, .ScaleHeight - 3, .ScaleWidth / 3, .ScaleHeight / 2, .ScaleWidth - 3, 1
                    .ForeColor = BDR_VISUAL2
                    Arc .hdc, .ScaleWidth - 2, .ScaleHeight - 2, 1, 1, .ScaleWidth - 2, 1, 1, .ScaleHeight - 2
                End If
            Case Is = Flat                                 '>> Round >> Draw Flat Style.
                If MouseDown Then
                    .ForeColor = BDR_FLAT1
                    Arc .hdc, .ScaleWidth - 2, .ScaleHeight - 2, 1, 1, .ScaleWidth - 2, 1, 1, .ScaleHeight - 2
                Else
                    .ForeColor = BDR_FLAT2
                    Arc .hdc, .ScaleWidth - 2, .ScaleHeight - 2, 1, 1, .ScaleWidth - 2, 1, 1, .ScaleHeight - 2
                End If
            Case Is = OverFlat                             '>> Round >> Draw OverFlat Style.
                If MouseDown Then
                    .ForeColor = BDR_FLAT1
                    Arc .hdc, .ScaleWidth - 2, .ScaleHeight - 2, 1, 1, .ScaleWidth - 2, 1, 1, .ScaleHeight - 2
                ElseIf MouseMove Then
                    .ForeColor = BDR_FLAT2
                    Arc .hdc, .ScaleWidth - 2, .ScaleHeight - 2, 1, 1, .ScaleWidth - 2, 1, 1, .ScaleHeight - 2
                End If
            Case Is = Java                                 '>> Round >> Draw Java Style.
                If .Enabled Then
                    .ForeColor = BDR_JAVA1
                    Arc .hdc, .ScaleWidth - 3, .ScaleHeight - 3, 2, 2, .ScaleWidth / 2, .ScaleHeight - 3, .ScaleWidth / 2, 3
                    .ForeColor = BDR_JAVA2
                    Arc .hdc, .ScaleWidth - 3, .ScaleHeight - 3, 2, 2, .ScaleWidth / 2, 2, .ScaleWidth / 2, .ScaleHeight - 2
                    Arc .hdc, .ScaleWidth - 2, .ScaleHeight - 2, 1, 1, .ScaleWidth / 2, .ScaleHeight - 2, .ScaleWidth / 2, 2
                End If
            Case Is = WinXp                                '>> Round >> Draw WindowsXp Style.
                If MouseDown Then
                    .ForeColor = BDR_PRESSED
                    Arc .hdc, .ScaleWidth - 4, .ScaleHeight - 4, 3, 3, .ScaleWidth / 2, .ScaleHeight - 2, .ScaleWidth / 2, 3
                ElseIf MouseMove Then
                    .ForeColor = BDR_GOLDXP_DARK
                    Arc .hdc, 2, 2, .ScaleWidth - 3, .ScaleHeight - 3, 2, .ScaleHeight - 3, .ScaleWidth - 3, .ScaleHeight - 3
                    .ForeColor = BDR_GOLDXP_NORMAL1
                    Arc .hdc, 2, 2, .ScaleWidth - 3, .ScaleHeight - 4, 3, 3, .ScaleWidth - 2, 4
                    .ForeColor = BDR_GOLDXP_NORMAL2
                    Arc .hdc, 3, 3, .ScaleWidth - 4, .ScaleHeight - 3, 2, 3, .ScaleWidth - 2, 3
                    .ForeColor = BDR_GOLDXP_LIGHT1
                    Arc .hdc, .ScaleWidth - 3, .ScaleHeight - 2, 2, 2, .ScaleWidth - 3, 3, 3, 3
                    .ForeColor = BDR_GOLDXP_LIGHT2
                    Arc .hdc, .ScaleWidth - 3, .ScaleHeight - 3, 3, 3, .ScaleWidth - 3, 4, 4, 4
                    '>> Round >> Draw Xp FocusRect.
                ElseIf mButtonStyle = WinXp And mFocusRect And mFocused Then
                    .ForeColor = BDR_BLUEXP_DARK
                    Arc .hdc, 2, 2, .ScaleWidth - 3, .ScaleHeight - 3, 2, .ScaleHeight - 3, .ScaleWidth - 3, .ScaleHeight - 3
                    .ForeColor = BDR_BLUEXP_NORMAL1
                    Arc .hdc, 2, 2, .ScaleWidth - 3, .ScaleHeight - 4, 3, 3, .ScaleWidth - 2, 4
                    .ForeColor = BDR_BLUEXP_NORMAL2
                    Arc .hdc, 3, 3, .ScaleWidth - 4, .ScaleHeight - 3, 2, 3, .ScaleWidth - 2, 3
                    .ForeColor = BDR_BLUEXP_LIGHT1
                    Arc .hdc, .ScaleWidth - 3, .ScaleHeight - 2, 2, 2, .ScaleWidth - 3, 3, 3, 3
                    .ForeColor = BDR_BLUEXP_LIGHT2
                    Arc .hdc, .ScaleWidth - 3, .ScaleHeight - 3, 3, 3, .ScaleWidth - 3, 4, 4, 4
                End If
            Case Is = Vista    '>> Round >> Draw Vista Style.
                If MouseDown Then
                    .ForeColor = BDR_VISTA2
                    RoundRect hdc, 2, 2, .ScaleWidth - 3, .ScaleHeight - 3, .ScaleWidth - 3, .ScaleHeight - 3
                Else
                    .ForeColor = BDR_VISTA1
                    RoundRect hdc, 2, 2, .ScaleWidth - 3, .ScaleHeight - 3, .ScaleWidth - 3, .ScaleHeight - 3
                    '>> Round >> Draw Vista FocusRect.
                    If mButtonStyle = Vista And mFocusRect And mFocused Then
                        .ForeColor = BDR_FOCUSRECT_VISTA
                        RoundRect hdc, 2, 2, .ScaleWidth - 3, .ScaleHeight - 3, .ScaleWidth - 3, .ScaleHeight - 3
                    End If
                End If
        End Select
        '>> Round >> Draw FocusRect.
        If Not mButtonStyle = Java And mFocusRect And mFocused Then
            If Not mButtonStyle = WinXp And mFocusRect And mFocused Then
                If Not mButtonStyle = Vista And mFocusRect And mFocused Then
                    .ForeColor = BDR_FOCUSRECT
                    RoundRect hdc, 4, 4, .ScaleWidth - 5, .ScaleHeight - 5, .ScaleWidth - 5, .ScaleHeight - 5
                End If
            End If
        End If
    End With
End Sub
Private Sub Redraw_Diamond()
    With UserControl
        '>> Diamond >> Make Diamond Shape.
        P(0).X = .ScaleWidth: P(0).Y = .ScaleHeight / 2
        P(1).X = .ScaleWidth / 2: P(1).Y = 0
        P(2).X = 0: P(2).Y = .ScaleHeight / 2
        P(3).X = .ScaleWidth / 2: P(3).Y = .ScaleHeight
        hRgn = CreatePolygonRgn(P(0), &H4, WINDING)
        SetWindowRgn .hWnd, hRgn, True
        DeleteObject hRgn

        '>> Diamond >> Draw Diamond Shape.
        MoveToEx .hdc, 0, .ScaleHeight / 2, Lines
        LineTo .hdc, .ScaleWidth / 2, .ScaleHeight - 1
        LineTo .hdc, .ScaleWidth - 1, .ScaleHeight / 2
        LineTo .hdc, .ScaleWidth / 2, 0
        LineTo .hdc, 0, .ScaleHeight / 2
        If Not mButtonStyleColors = Transparent Then
            MoveToEx .hdc, .ScaleWidth / 2, 1, Lines
            LineTo .hdc, .ScaleWidth / 2, 0
        End If
        Select Case mButtonStyle
            Case Is = Visual                               '>> Diamond >> Draw Visual Style.
                If MouseDown Then
                    .ForeColor = BDR_VISUAL
                    MoveToEx .hdc, .ScaleWidth / 2, 0, Lines
                    LineTo .hdc, 0, .ScaleHeight / 2
                    LineTo .hdc, .ScaleWidth / 2, .ScaleHeight - 1
                    .ForeColor = BDR_VISUAL1
                    MoveToEx .hdc, .ScaleWidth / 2, 1, Lines
                    LineTo .hdc, 1, .ScaleHeight / 2
                    LineTo .hdc, .ScaleWidth / 2, .ScaleHeight - 2
                Else
                    .ForeColor = BDR_VISUAL1
                    MoveToEx .hdc, .ScaleWidth / 2, .ScaleHeight - 2, Lines
                    LineTo .hdc, .ScaleWidth - 2, .ScaleHeight / 2
                    LineTo .hdc, .ScaleWidth / 2, 1
                    .ForeColor = BDR_VISUAL2
                    MoveToEx .hdc, .ScaleWidth / 2, 0, Lines
                    LineTo .hdc, 0, .ScaleHeight / 2
                    LineTo .hdc, .ScaleWidth / 2, .ScaleHeight - 1
                End If
            Case Is = Flat                                 '>> Diamond >> Draw Flat Style.
                If MouseDown Then
                    .ForeColor = BDR_FLAT1
                    MoveToEx .hdc, .ScaleWidth / 2, 0, Lines
                    LineTo .hdc, 0, .ScaleHeight / 2
                    LineTo .hdc, .ScaleWidth / 2, .ScaleHeight - 1
                Else
                    .ForeColor = BDR_FLAT2
                    MoveToEx .hdc, .ScaleWidth / 2, 0, Lines
                    LineTo .hdc, 0, .ScaleHeight / 2
                    LineTo .hdc, .ScaleWidth / 2, .ScaleHeight - 1
                End If
            Case Is = OverFlat                             '>> Diamond >> Draw OverFlat Style.
                If MouseDown Then
                    .ForeColor = BDR_FLAT1
                    MoveToEx .hdc, .ScaleWidth / 2, 0, Lines
                    LineTo .hdc, 0, .ScaleHeight / 2
                    LineTo .hdc, .ScaleWidth / 2, .ScaleHeight - 1
                ElseIf MouseMove Then
                    .ForeColor = BDR_FLAT2
                    MoveToEx .hdc, .ScaleWidth / 2, 0, Lines
                    LineTo .hdc, 0, .ScaleHeight / 2
                    LineTo .hdc, .ScaleWidth / 2, .ScaleHeight - 1
                End If
            Case Is = Java                                 '>> Diamond >> Draw Java Style.
                If .Enabled Then
                    .ForeColor = BDR_JAVA1
                    MoveToEx .hdc, .ScaleWidth / 2, 1, Lines
                    LineTo .hdc, .ScaleWidth - 2, .ScaleHeight / 2
                    LineTo .hdc, .ScaleWidth / 2, .ScaleHeight - 2
                    .ForeColor = BDR_JAVA2
                    MoveToEx .hdc, .ScaleWidth / 2, 1, Lines
                    LineTo .hdc, 1, .ScaleHeight / 2
                    LineTo .hdc, .ScaleWidth / 2, .ScaleHeight - 2
                    MoveToEx .hdc, .ScaleWidth / 2, 0, Lines
                    LineTo .hdc, .ScaleWidth - 1, .ScaleHeight / 2
                    LineTo .hdc, .ScaleWidth / 2, .ScaleHeight - 1
                    LineTo .hdc, .ScaleWidth / 2, .ScaleHeight - 1
                End If
            Case Is = WinXp                                '>> Diamond >> Draw WindowsXp Style.
                If MouseDown Then
                    .ForeColor = BDR_PRESSED
                    MoveToEx .hdc, .ScaleWidth / 2, .ScaleHeight - 4, Lines
                    LineTo .hdc, .ScaleWidth - 4, .ScaleHeight / 2
                    LineTo .hdc, .ScaleWidth / 2, 3
                    SetPixel .hdc, .ScaleWidth / 2, 1, vbBlack
                ElseIf MouseMove Then
                    .ForeColor = BDR_GOLDXP_DARK
                    MoveToEx .hdc, .ScaleWidth / 2, .ScaleHeight - 2, Lines
                    LineTo .hdc, .ScaleWidth - 2, .ScaleHeight / 2
                    .ForeColor = BDR_GOLDXP_NORMAL1
                    MoveToEx .hdc, .ScaleWidth / 2, .ScaleHeight - 3, Lines
                    LineTo .hdc, .ScaleWidth - 3, .ScaleHeight / 2
                    MoveToEx .hdc, 1, .ScaleHeight / 2, Lines
                    LineTo .hdc, .ScaleWidth / 2, .ScaleHeight - 2
                    MoveToEx .hdc, .ScaleWidth - 2, .ScaleHeight / 2, Lines
                    LineTo .hdc, .ScaleWidth / 2, 1
                    .ForeColor = BDR_GOLDXP_NORMAL2
                    MoveToEx .hdc, 2, .ScaleHeight / 2, Lines
                    LineTo .hdc, .ScaleWidth / 2, .ScaleHeight - 3
                    MoveToEx .hdc, .ScaleWidth - 3, .ScaleHeight / 2, Lines
                    LineTo .hdc, .ScaleWidth / 2, 2
                    .ForeColor = BDR_GOLDXP_LIGHT1
                    MoveToEx .hdc, .ScaleWidth / 2, 1, Lines
                    LineTo .hdc, 1, .ScaleHeight / 2
                    .ForeColor = BDR_GOLDXP_LIGHT2
                    MoveToEx .hdc, .ScaleWidth / 2, 2, Lines
                    LineTo .hdc, 2, .ScaleHeight / 2
                    SetPixel .hdc, .ScaleWidth / 2, 1, vbBlack
                    '>> Diamond >> Draw Xp FocusRect.
                ElseIf mButtonStyle = WinXp And mFocusRect And mFocused Then
                    .ForeColor = BDR_BLUEXP_DARK
                    MoveToEx .hdc, .ScaleWidth / 2, .ScaleHeight - 2, Lines
                    LineTo .hdc, .ScaleWidth - 2, .ScaleHeight / 2
                    .ForeColor = BDR_BLUEXP_NORMAL1
                    MoveToEx .hdc, .ScaleWidth / 2, .ScaleHeight - 3, Lines
                    LineTo .hdc, .ScaleWidth - 3, .ScaleHeight / 2
                    MoveToEx .hdc, 1, .ScaleHeight / 2, Lines
                    LineTo .hdc, .ScaleWidth / 2, .ScaleHeight - 2
                    MoveToEx .hdc, .ScaleWidth - 2, .ScaleHeight / 2, Lines
                    LineTo .hdc, .ScaleWidth / 2, 1
                    .ForeColor = BDR_BLUEXP_NORMAL2
                    MoveToEx .hdc, 2, .ScaleHeight / 2, Lines
                    LineTo .hdc, .ScaleWidth / 2, .ScaleHeight - 3
                    MoveToEx .hdc, .ScaleWidth - 3, .ScaleHeight / 2, Lines
                    LineTo .hdc, .ScaleWidth / 2, 2
                    .ForeColor = BDR_BLUEXP_LIGHT1
                    MoveToEx .hdc, .ScaleWidth / 2, 1, Lines
                    LineTo .hdc, 1, .ScaleHeight / 2
                    .ForeColor = BDR_BLUEXP_LIGHT2
                    MoveToEx .hdc, .ScaleWidth / 2, 2, Lines
                    LineTo .hdc, 2, .ScaleHeight / 2
                    SetPixel .hdc, .ScaleWidth / 2, 1, vbBlack
                End If
            Case Is = Vista    '>> Diamond >> Draw Vista Style.
                If MouseDown Then
                    .ForeColor = BDR_VISTA2
                    MoveToEx .hdc, 1, .ScaleHeight / 2, Lines
                    LineTo .hdc, .ScaleWidth / 2, .ScaleHeight - 2
                    LineTo .hdc, .ScaleWidth - 2, .ScaleHeight / 2
                    LineTo .hdc, .ScaleWidth / 2, 1
                    LineTo .hdc, 1, .ScaleHeight / 2
                Else
                    .ForeColor = BDR_VISTA1
                    MoveToEx .hdc, 1, .ScaleHeight / 2, Lines
                    LineTo .hdc, .ScaleWidth / 2, .ScaleHeight - 2
                    LineTo .hdc, .ScaleWidth - 2, .ScaleHeight / 2
                    LineTo .hdc, .ScaleWidth / 2, 1
                    LineTo .hdc, 1, .ScaleHeight / 2
                    '>> Diamond >> Draw Vista FocusRect.
                    If mButtonStyle = Vista And mFocusRect And mFocused Then
                        .ForeColor = BDR_FOCUSRECT_VISTA
                        MoveToEx .hdc, 1, .ScaleHeight / 2, Lines
                        LineTo .hdc, .ScaleWidth / 2, .ScaleHeight - 2
                        LineTo .hdc, .ScaleWidth - 2, .ScaleHeight / 2
                        LineTo .hdc, .ScaleWidth / 2, 1
                        LineTo .hdc, 1, .ScaleHeight / 2
                    End If
                End If
        End Select
        '>> Diamond >> Draw FocusRect.
        If Not mButtonStyle = Java And mFocusRect And mFocused Then
            If Not mButtonStyle = WinXp And mFocusRect And mFocused Then
                If Not mButtonStyle = Vista And mFocusRect And mFocused Then
                    .ForeColor = BDR_FOCUSRECT
                    PL(0).X = .ScaleWidth - 6: PL(0).Y = .ScaleHeight / 2
                    PL(1).X = .ScaleWidth / 2: PL(1).Y = 5
                    PL(2).X = 5: PL(2).Y = .ScaleHeight / 2
                    PL(3).X = .ScaleWidth / 2: PL(3).Y = .ScaleHeight - 6
                    Polygon .hdc, PL(0), &H4
                    '>> Return FocusRect For Good Show.
                    For Fo.X = 2 To .ScaleWidth - 2 Step 1
                        For Fo.Y = 1 To .ScaleHeight - 1 Step 2
                            If GetPixel(.hdc, Fo.X, Fo.Y) = .ForeColor Then SetPixel .hdc, Fo.X, Fo.Y, vbBlack
                        Next Fo.Y
                    Next Fo.X
                End If
            End If
        End If
    End With
End Sub
Private Sub Redraw_Top_Triangle()
    With UserControl
        '>> Top_Triangle >> Make Top_Triangle Shape.
        P(0).X = 0: P(0).Y = .ScaleHeight
        P(1).X = .ScaleWidth / 2: P(1).Y = 0
        P(2).X = .ScaleWidth: P(2).Y = .ScaleHeight
        hRgn = CreatePolygonRgn(P(0), &H3, WINDING)
        SetWindowRgn .hWnd, hRgn, True
        DeleteObject hRgn

        '>> Top_Triangle >> Draw Top_Triangle Shape.
        MoveToEx .hdc, .ScaleWidth / 2, 1, Lines
        LineTo .hdc, 1, .ScaleHeight - 1
        LineTo .hdc, .ScaleWidth - 2, .ScaleHeight - 1
        LineTo .hdc, .ScaleWidth / 2, 1

        Select Case mButtonStyle
            Case Is = Visual                               '>> Top_Triangle >> Draw Visual Style.
                If MouseDown Then
                    .ForeColor = BDR_VISUAL
                    MoveToEx .hdc, .ScaleWidth / 2, 1, Lines
                    LineTo .hdc, 1, .ScaleHeight - 1
                    .ForeColor = BDR_VISUAL1
                    MoveToEx .hdc, .ScaleWidth / 2, 3, Lines
                    LineTo .hdc, 3, .ScaleHeight - 3
                Else
                    .ForeColor = BDR_VISUAL1
                    MoveToEx .hdc, 1, .ScaleHeight - 2, Lines
                    LineTo .hdc, .ScaleWidth - 3, .ScaleHeight - 2
                    LineTo .hdc, .ScaleWidth / 2, 3
                    .ForeColor = BDR_VISUAL2
                    MoveToEx .hdc, .ScaleWidth / 2, 2, Lines
                    LineTo .hdc, 1, .ScaleHeight - 1
                End If
            Case Is = Flat                                 '>> Top_Triangle >> Draw Flat Style.
                If MouseDown Then
                    .ForeColor = BDR_FLAT1
                    MoveToEx .hdc, .ScaleWidth / 2, eWidth / 2, 1, Lines
                    LineTo .hdc, 1, .ScaleHeight - 1
           .   LineToF                   LineTo .hdcdc, Rect And mFocused Then
                        .ForeColor = BDR_FOCUSRECT_VISTA
                        MoveToEx .hdc, 1,r  .ForeColor = BDR_FOCUSRECT_VISTA
            ForeColo         '>> Top_Triangle >> Drawu&dth / 2, .Scaleuo2
                    Lieight / 2
     SUAL2F 2cineTo .hdc, 1, .ScaleHeight - 1
          or Good Show.
                    For Fo.X = 2 To .ScaleWidth - 2 Step 1       G  or Good Show.
                    For Fo.X = 2 To .ScaleWidth - 2 Step 1       G  or Good Show.
                    For Fo.X = 2 To .ScaleWidth - 2 Step 1       G  or Good Show.
                    For Fo.X = 2 To .ScaleWidth - 2 Step 1       G  or G MoveToEx .hdc, .ScaleWidth / 2, 2, Lines
        LineTo .hdc, .ScalStep 1       G  or G MoveToEx .hdc, .ScaleWidth     2,      For Fo.X = 2 To .ScaleWidth - 2 Step 1       G  or Good Shlo         '>> TopH.ScaleHeight - 3, .ScaleWidth - 3, .ScaleHeight - 3
                    End If
                End If
        End Select
  OForeColor = BDR_FLAT1
                    MoveToEx .hdc, .ScaleWidth / 2, eWidth / 2, 1, Lines
                    LineTo .hdc, 1, .ScaleHeight - 1
           .   LineToF                     .etep 1       G  orUSRECT_VISTA
                    angle T_VISTA
     VetP              .ForeColor = BDR_VISUAL2
                    MoveToEx .hdc, .ScaleWidth / 2, 0, Lines
                    LineTo .hdc, 0, .ScaleHeight / 2
                    LineTo .hdc, .ScaleWidth / 2, .ScaleHeight - 1
                End If
          C     und >> Draw FocusRect.
        If NP / 2
         ScaleWidth / 2, 1, L            Lineidth / 2, 1, vbBla/ 2, 1, vbBla/ 2, hAeTo YScaleWidth / 2, 2, Lines
        L1
                    LineTo .hdc, .ScaleWidth / 2, .ScaleHeight -D .S     L1
                    LineTo .hdc, .Sc    LineTo           MoveToEx .hdc, .ScaleWidth / 2, 0, Lines
                    LineTo .hdc, 0, .ScaleHe5, .ScaleHeigLine2, 1, vbBla/ 2, hAeTo YScaiGF .hdc, 1, .ScaleHeight - , .ScaleHeight - 3, 2/a/ 2, hAeTo  Sub Redraw_Top_TrN2, hJava              8pava            9dmM   8pava       vbBla/ 2, hAeTo YScaiGF .hdc, 1, .ScaleHeight - , .ScaleHeight - inesx 2, .ScaleWidth - 3, 3, 3, 3
                    .ForeColtyl001>> Draw FocusRect.
        If NP / 2
         S
         Sa    YcusRect.
D .S     L1
                    LineTo .hdc, 1, .ScaleHeight - 1
                End IfeWid1p    L1
                   ooaHeig     If NP /oOoaHeig     If NP /oOoaHeig   caleHeight / 2
      2, hJava          aleHeiiangle >> Draw Vi    eeeeForeColor = BDO     aleHeiiangle  / 2, 1, o   2, 2, 1, o   2, 2, 1, o   2, 2, 1, o   2, 2, 1, F  2, hJavleHeiianglig   caleHeight / p 1   vidth - 2 Step 1  t - 1
                End IfeWid/ 2e.
        MoveToEx .hdc, .ScaleWidth / 2, 1, Lines
        LineTo .hdc, 1, .ScaleHeight - 1
     I8ed Then
1>> Drolor                                                                                                                                   3 2, .Scaletep ht / 2   If NP /oOoaHeig   caleHeight / 2
      2, hJava          aleHeiian           MoveToEx .hdcBO          3 2, .Scaletep hteig     If NP   MoveTc, .Sw  For Fo.X = 2 To .ScaleWidth - 2 Step 1       G       2, hAeTo YScaleWidth / 2 th - 2 Step 1       G     G   4
1>> Drolor                                                                  d                                            d                                            d                                            d                             d                                   MoveToEx .hdc, .ScaleWidth / 2, 1, Lines
                    LinCHnStyle
            Ca 2, 2, , .ScaleWidth / 2, 1, Lines
        LineTo .hdc, 1,              olor = BDR_FLAT1
                    MoveToEx .hdc, .ScaleWidth / 2, eWidth / 2, 1, Lines
                    LineTo .hdc, 1, .ScaleHeight - 1
           .   LineToF                     .etep 1       )   2, 2                                  d                                            d    rOtep 1np    LineTo .hd>> D                '>> RoundedRectang          G  or Good Show.
                    For Fo.X = 2 To .ScaleWid .hdcBOow.
   MoveToE           Linaen
1>> Drolor               .ForoE           LiYYYYYYYYYYYYYYY1       G       2, hAeToiYYYYYYYYYYY                    nXp And mLineY   AsFFFFFFFFFFFFFFF    nXp And moiYYYYYYYYYYY                    nXp And mLineY   AsFFFFFFFFFFFFFFF      nXp And moiYYYYaleWidth - 4, .ScaleHeY   em    nXp And moiYYYYaleWidth - 4, .ScalYYYYY    2, hAeToiYYYYYn     LiYYYYYYYYYYYYYYY1       G  , 1, .ScaleHeight - 1
           .   LiFht -       FYYYYn     LiYYYYYYYYYYYYYYY1       G  , 1, .ScaleHeight - 1
           .   LiFht -       FYYYYn     LiYYYYYYYYYYYYYYY1       G  , 1, .ScaleHeight - 1
           .   LiFht -       FYYYYn     LiYYYYYYYYYYYYYYY1       G  , 1, .ScaleHeight - 1
           .kveToEx .hdc, .ScaleWidth /1       LineTo .hdc, 1, .ScaleHeight - 1
        LineTo .hdc, .ScaleWidth - 2, .Scal      LineTo .hdc, 1, .ScaleHeight - 1
        LineTo .hdc, .ScaleWidth - 2, .Scal      Lical     c, 1, .ScaleHeight -     0So                         Lical     c, 1, .ScaleHeight -     0So     .   LiFht -       FYYYYn     LiYYYYYYYYYYYYYYY1       G  , 1, .ScaleHeY       G  , 1, .SC1
  ineTo .hdc, .ScaleWidth     0So     .   LiFht -                ci '>> RoundedRectang
                    .ForeColor = BDR_GOLDXP_LIGHT1
                    MoveToEx .hdc, .ScaleWidth / 2, 1, Lines
                 hJavleHeiianglig                         yleWidedRectang     ttonSal    _3n1If MouseDown ThYYYYY, .ScaleHeight -     0So     .   LiFTo .h-     0SoD3, .ScaleWidth - 3, .ScaleHeight - 8
                    .ForeColor = BDR_BLUEXP_NORMAL2
                    MoveToEx .hdc, 2, 7, Lines
                    LineTo .hdc, 2, .ScaleHeight - 7
                    Mov= 5: PPPPPPPP)            For Fo.X = 2 To .Scal       M             .ForeColor = BDR_VISUAL1
                    MoveToEx .hdc, .Scale
        LineTo .hdc, 1, .ScaleHeight - 1
        LineTo .hdc, .ScaleWidth - 2, .ScaleHeight - 1
        LineTo .hdc,AleHeight -     0So     .      LineTo .hdc,R_BToEx .hdc, 2, 7, Lines
  T_NORMAL2
                    MoveToEx .hdc, 2, 7, Lines
    Lines
  T_NORMAL2
           T .hdc, 2, 7, Lines
    Lines
  T_NORMAL2
           T .hdc, 2, 7, Lines
    Lines
  T_NORMALLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLi1
      oYYYYYYYY    iR   caleHeight / p 1    .   sn     tScalenes
  T_NORMALLLLS.arLLi1
      oYYYYop       LineTo .hdc, .ScaleWidth / 2, .ScaleHeight - 1
                End If
    .DaleWidth / 2, .ScaleHeight - 1
 l .hUSRECT
                    RoundLreCoORMAL2
       ht - 7
                    Mov= 5: PPPPPPP   .   LLLLLLL         .hdc, .ScaleWidth / 2PPPPPPP 3   LineTo .hdcdc, Rect And mFocused Then
     Then
          .

                    .ForeColor = BDR_GOLDXP_LIGHT1
                    MoveToEx .hdc, .ScaleWidth / 2, 1, LYop       LineTo .hdc, .Scaaaaaaaaaaaa                        LinCHnStyle
            Ca 2, 2, , .ScaleWidth / 2, 1, Lines
        LineTo .hdc, 1,              olor = BDR_FLAT1
   .hines
  Lines
        LineTo .hdc, 1,              olor = BDR_FLAT1
   .hines
  Lines
        LineTo .hdc, 1,              m .ForeCoYYYYalecused
                    Arc .hdc, .ScaleWidth - 2, .Scale    or = BDR_FLAT1
   .hine1
        LineTo .hdc,Al      FYYYYn     LHec, 1ines
   x .hdc, .ScIEhdc, 2, 7, Lines
  T_NORMAL2
eTo .hdc, 0, .ScalOsta    '>> Round ScaleHeight - 1
 l .hUSght - 1
 l .hUSgo .hd    SUAL2F1
 l .hUSght - 1
 l .hUSgo lor = BDR_FLAT1
   .hines
  Lin2       ght - 1
 l .hUSgo lor = BDR_FLAT1
   .hines
  Lin2       ght - 1
 l .hUSgo lor = BDR_FLAT1
   .hines
  Lin2       ght - 1
 l .hUSgo lor = BDR_FLAT1
   .hines
  Lin2       ght - 1
 l .hUSgo lor = BDR_RoundLreCoORMAL2
       ht - 7
                  .hdc, .ScaleWidthreCoORMAL2
       ht - 7
                  .hdc    2, hAeTo                     yleWidedRectang     ttonSal    _3n1If MouseDown ThYYYYY, .ScaleHeight -     0So     .   Lc, .ScaDrolor   YY, .ScaleHeight -     0So     .   Lc, .ScaDrol(B    eight -     0So  AT1
   .hines
  Lin2        1
           .kveToEx .h       .ScaleWidth / 2,n
        If NP / 2
         ScaleWidth / 2, 1, L            Lineidth / 2, 1          .kveToEx .h       .ScaleWidth / 2,n
        If NP / 2
   L       ER    .ScaleWidth / 2,n
        I.ScaleWidth / 2, 2, Lines
   ol MoveToEx .hdc, 1, .Scal.
D .S  (ER    .ScaleWidth     M             .ForeColor = BDR_VIs
        LineTo .hdcDeTo .hdc, .ScaleWidth / 2, , , .ScaleWidth /s  ScaleHeight - 1
/ 2
         ScaleWidth / 2, 11, LineeWidth / 2, 1, L      1DeTo .hdc, .Scale .k                 3Fines
  Lin2        1
           .kveToEx .h       .ScaleWidth / 2,n
        If NP / 2
    p       .hdc    2, hAeTo                     ylow2  FYYYYC   eDR_GOLDXP_LIGHo        PL(3).X = .ScaleWidth / 2: PL(3 For FoL2F1
 l .hUSg     1
           .kveToEx .h       .ScaleWidth / eidth / 2, 1          .kveTa         .kveTa         lth / 2, .Scale
        LineTo .hdc, 1, .ScaleHeight - 11SRECT
   GHo        PL(3).X = .S '>> DiamoTLth /=    MoveToEx .hdc, 10, 2, Lines
               PPPPPPP   .   LLLLLLL         .hdc, .ScaleWidth / 2PPPPPPP 3   LineT0eHeight -     0So 5: PPPPPPP   .   LLLLLLL          LineTo .hdcDeTo .hdc, .Scale= .S '>> DiamoFYYYYn     LHec,x&iamoFt - 7
                  .hdc    2, hAeTo                     yleWidedRectang     ttonSal    _3n1If MouseDown ThYYYY 8, 2
    AiedRec  ght -ight - 1
        LineTo .hdc, .ScaleWidth - 2, .ScaleHeight - 1
        LineTo .hdc, .ScaleWidth / 2, 1

        Select Case mButtonStyle
            Case Is = Visual                               '>> Top_Triangle >> Draw Visual Style.
                xeToE           Li
                    .ForeCy       '6      G     G   4
1>> Drolor                                  .ForeCy           neTo .hdc, 1, .ScaleHe6                   .ForeColor = BDR_PRESSED
                    Arc .hdc, .ScaleWidth - 4, .ScaleHeight - 4, 3, 3, .ScaleWidth / 2, .ScaleHeight - 2, .ScaleWidth / 2, 3
                ElseIf MouseMove Then
                    .ForeColor = BDR_GOLDXP_DARK5ouseMove Tei                .ForeColor = BDR_FLAT2
              (       LineTo .hdc, .ScaleWidth - 2, .ScaleHeight - 1
        LineTo .hcaleeight - 2, 1, 1, .ScaleWidth / 2, .ScaleHeight - 2, .ScaleWidth / 2, 2
                End If
            Case Is = WinXp                                '>> Round >> Draw WindowsXp Style.
                If MouseDown Then
                    .ForeColor =e              , .ScaDrFi .Sc      , .ScaDrFi .Sc      , .ScaDrFi .Sc    11 .ScaDrFi .Sc     gh              For Fo.X = 2 To .ScaleWidth - 2 Step 1       G  or G (LF
End Sub
Private Sub Redraw_Diamond()
    With UserControl
        '>> Diamond >> Make Diamond Shape70dE     Windowso
            End If
        End If
    End With
End Sub
Private Sub Redraw_Top_Triangle()
    With UserCo   End IfCs0.
    nbeig    L2 .hdc,
    Wi Lieight / 2
   n.S '>> DiamoTLth /=    r<.X = 2 To .ScaleWidth - 2 Ste   gh    e                .ForeC/ 2, .ScaleHLthh - 2, .
        P(0).X = 0: P(0).Y = .ScaleHeight
        P(1).X = .ScaleWidth / 2:   LineTo .hdc, .ScaleWidth - 2, .ScaleHeight - 1
        LineTo calScal.
D .S  (ER   right - 1
        LineTo calScal.
D .S  (ER   ri   I/ 2, .ScaleHLt   1
                         Arc .hdc, .ScaleWidth - 4, .ScaleHeight - 4, 3, 3, .ScaleWidth    G  or G (LF
End Sub
Private Sub Redraw_Diamond()ght - 4, 3, 3, .ScaleWid        oA    FYYy9idth - 3, .ScaleHeight -iedRec  ght -ight -Bh UserCo   End IfCs0.
    Uc    11 .ScaDrFi .Sc     gh              For Fo.X = 2 To .ScaleWidth - 2  G (LF
End           ,    b Redraw_Di   hUSght - 1
 l    dc, 1,              olor = BDR_FLAT1
                    MoveToEx .hdc, .ScaleWidth / 2, eW                 EP EP EP EP EP EP EP EP EP EP EP EP EPEP EP - 4, .ScaleHei Arc .hdc, .ScaleWidth - 4, .ScaleHeight - 4, 3, 3, .ScaleWidth    G  or G (LF
End Sub
Private Sub Redraw_Diamond()ght - 4, 3, 3, .ScaleWid        oA    FYYy9idth - 3, .ScaleHeight -iedRec  ght -ight -Bh UserCo   End IfCs0.
    Uc    11 .ScaDrFi .Sc     .Sca        .ForeColor = BDR_GOL        1&           Arc .hdc, .ScaleWidth - 4, .ScaleHeight - 4, 3, 3, .ScaleWiCP  hUColleHeight - 4, 3, 3,Height FBi
 : lei ArcT1
                    MoveToEx .hdc, .ScaleWidth / 2, e0  LineTo3, 3, .ScaleWid   OBWidth / 2, 1, Lines
                    LinCHnStyle
        d   OBWidth / 2, 1, Lii    nCHnHeighB
                    LinCHnStyle
       c, .S    LinCHnStyle
  - 1
        - 2, 1, 1, .ScaleWiddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddd- 1     lenes  .hines
  Lines
      dddddddddddd  OBTo calScal.
DleHei Arc .hdc, .ScaleWidth - 4, .ScaleHeight - 4, 3, 3, .ScaleWidth    G  or G (LF
End Sub
Private Su-   yHnStyle
     Arc .hdc, .ScaleWidth - 4, .ScaleHeight - 4, 3, HeighB
                    LinCHnStyle
       c, .S    LinCHnStyle
  - 1
        - 2, 1, 1, .ScaleWiddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddd- 1     lenes  .hines
  LeWidth /, RecBista    '>> Diamond >> D'ddddddddddddddd   oA    FYth - 4, .ScaleHeight - 4, 3, HeighB
 A2t - 1
                    If MouseDown Then
                3, HeighB
 A2t - 1
                x         11 .2
                    .For
EDddddddddddddddddddddddddddddddddd- 1     lenes  .hines
  LeWidth /, RecBista    '>> Diamond >> D'ddddddddddddddd   oA    FYth - 4, .ScaleHeight - 4, 3, HeighB
 A2t - 1
       ddddd   oA    FYth - 4ht - 4,  - 2
                Else
                    .ForeColor = BDR_VISUAL1
                    MoveToEx .hdc, .ScaleWidth / 2, .ScaleHeight - 2, Lines
                    LineTo .hdc, .ScaleWidth - 2, .ScaleHeight / 2
                                                                                                                                                                                                                                                                                        2, .Scald >> Draw WiDR_VISUAL1
     9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9                  9dmM   8pava       vbB 2, eWidth / 2, 1, Lines
                    LineeleHeight - 2, Lines
                    LineTo .hdc, .ScaleWidth - 2, .ScaleHeight / 2
                                        eHeight - 4, 3, HeighB
 A2t - 1
                                                 Lin               6CLin               0 - 4, .ScaleHeight - 4, 3, 3, .ScaleWidth    G  or G (LF
End Sub
Private Su-   yHnStyle
     aleColor_FLAT2
                    Arc .hdc, .ScaleWidth - 2, .ScaleHeight - 2, 1, 1, .ScaleWidth - 2, 1, 1, .ScaleHeight - 4, 3, HeighB
 A2t - 1
  ScaleHeight / 2
                    - 4,lg              LineTo .  LineTo .  LineTo .  LineTo .  LineTo .  LineTo .  LineTo .  LineTo .  LineTo .  LineTo .  LineTo .  LineTo .  LineTo .  LineTo .  LineTo .  LineTo .  LineTo .  LineTo .  LineTo .  LineTo .  LineTo .  LineTo .  LineTo .  LineTo .  LineTo .  LineTo .  LineTo  Linor Good Show.
       o  Linor Good Show.
    / 2, .Scalf o   MoveToEx .hdc, .Scale
        LineTo ocused Then
                        nyCo, e0  LineTo3, 3, .ScaleWid        9 9 9 9 9 9  .  LineTo .  LieTo3, 3, .ScaleWid     eWi   , .ScaDrFi .Sc    11 .ScaDrFi .Sc     gh              Fo Mov= 5: PPPPPPP   .   L.Sc    11 .ScaDrFi .Sc     gh              Fo Mov= 5: PPPPPPP   .   L.Sc    11 .ScaDrFi .S/ 2, 1,  LinB.hdc, 1,      te Su-   yHnStyle
     Arc .hdc, .ScaleWidth - 4, .ScaleHeight - 4, 3, HeighB
                    LinCHnStyle
       c, .S    LinCHnStyd   cBs
                    LineTo .7DrFi .Sc     gh              Fo MoTyhdc, 1, .ScaleHe6                   .ForeColor = BDR_PRESSED
                    Arc .hdc, .ScaleWidth - 4, .ScaleHeight - 4, 3, 3, .ScaleWidth / 2, .ScaleHeight - 2, .ScaleWidth / 2, 3
      eighB
                    LinCHnStyle
       c, .S    LinCHnStyd   cBs
                    LineT, 1, Vh.Sc     gh              Fo Mov= 5: PPPPPPP   .   L.Sc    11 .ScaDrFPPP   .  dB/ 2, 0, Lines
                    LineTo .hdc, 0, .ScaleHe5, .ScaleHeigLine2, 1, vbBla/ 2, hAeTo    eu.ScaleHe5, .ScalbBla/ 2,te Sub Redrah / 2, .Scal hAeATo3,2, 1, vbBla/ 2LineTo .  LineTo .  LineTo .  LineTo .  LineTo .  LineTo .ScalbBla/ 2,te Sub Redrah / 2, .Scal hAeATo3,2, 1, vbBla/ 2LineTo . - 4, .Scal Sub RedeWidth - 4, .ScaleHeight - 4, 3, 3, .ScaleWidth / 2, .ScaleHr Good Show.
    / 2,             LineTo .hdc, 0, .ScaleHe5, .ScaleHeigLine2, 1, vbBla/ 2, hAeTo      ynColor = BD(To .hdc, 2, .ScScaleHeigL2     idth - 2 Sub R
                    LinCHnStyle
       c, .S    LinCHnStyd   cBs
                    LineT, 1, Vh  .hV   PP   .   L.Sc    11 .ScaDrFPPP   .  dB/ 2, 0, Lines
        V, .ScScaleHeigL2     idth - 2 Sub R
                    LinCHnStyle
       c, f MousHeightle
       c, f MousHeightle
       c, f MousHeightle
       c  11 .ScaDrFPPP   .c, f MoA    F     LinCHnStyd RECT
   GHoWidth / 2, 3
      eighB
                    LHeigL2     idth - 2 Sub R
                    LinCHn      Li R
                    L    LHeigL2     idth - 2 Sub R
                    LinCHn      Li R
                    L    LHeigL2     idth - 2 Sub R
                    LinCHn      Li R
                    L    LHeigL2     idth - 2 Sub R
                    LinCHn      Li R
            E .Sc     Li R
              1     idth - 2 Sub R
                    LinCHn      Li R
            E .Sc     Li R
              1                    LinCHn      ood Show.  LHeigL2     idth - 2 Sub R
    Etyle
 t              enub R
                    LinCHn      Li R
            E .Sc     Li R
              1     idth - 2 Sub R
                     1, Lines
        Line   - 2 SSSSSSSSSSSSSSSSSSSSSSSSSSSS3, 2, .ScScaleHeigL2     idth - 2 Sub R
                    LinCH        L    LHeigL2  - 2 Ste   gh    e    t  - 2 Ste   gh    e    t  - 2 Ste   gh    e              tcBs
                LinCHn      Li R
            E .Sc     Li R
ght - 1
/ 2, 0, Linea                yleWidedRectang ScaleHeight - 4, 3, 3, .ScaleWidth    G  or G (LF
End Sub
Private SuosW_FLAT1
   .hines
 SS3, 2, .ScScaleHeigL2 ,tPrivate SuosW_FLAT1
   .hinesidth - 2 Sub R
                  P
1>> Drolor            .Sc     Li R
              1 NSSSSSSSSSSS3, 2, .ScScaleHei          LineT, 1, Vh.ScLinLte    Mo       S3, 2, .ScScs    LineT, 1, Vh.ScLinLte    Mo       S3, 2, .ScScs    LineT, 1, Vh.ScLinLte    Mo       S3, 2, .ScScs    LineT, 1, Vh.ScLinLte    Mo       S3, 2, .ScScs    LineT, 1, Vh.ScLinLte    M3, 2, .ScScaleHei    right - 1
        LineTo calScal.
D .S  (ER   ri   I/ 2, .ScaleHLt   1
             C    .Sc     Li R
              1 NSSSSSSSSSSS3, 2, .ScScaleHei          LineT, 1, Vh.ScLinLte   feT, 1,           LineT, 1, Vh.S61MSe
 =  1 NSSS2gLsOs
                    LineTo .hdc, .ScaleWidth - 81 Vh.0    NSS 2, 1
                    LineTo .hdc, 1, .ScaleHeight / 2
                Else
                    .ForeColor = BDR_VISTA1
                    MoveToEx .hdc, 1, .ScaleHeight / 2, Lines
                    LineTo .hdc, .ScaleWidth / 2, .ScaleHeight - 2veToEx .hdc, 1, .ScaleHeight / 2, Lines
                    LineTo .hdc, .ScaleWidth / 2, .ScalE c, .S    Lin          MoveToEx .hdc, 1, .Scal.FE.ScalTo .LLLLLAT1
 .ScaleHeYTo .LLLLLAT1
 .ScaleHeYTo .L          E .S                  MoveToEx .hdc, 1, .ScaleHeight / 2  ghhhhhhhhm   MoveToEx .hdc, 1, .ScaleHeight / 2, Lines
                    LineTo .hdc, .ScaleWidth / 2, .ScaleHeight - 2veToEx .hdc, 1, .ScaleHeight / 2, Lines
                    LineTo .hdc, .ScaleWidth / 2, .ScalE c, .S    Lin          MoveToEx .hdc, 1, .Scal.Fo .  LineTo            MoveToEx .hdc, 1, .ScalLin2        1
           .kveToEx .h usHeightle
       c, f Mo  gh    e              tcBs5                LineTo .hdc, 0, .ScaleHe5, .ScaleHeigLine2, 1, vbBla/ 2, hAeT2  .   LiFTo .h-     0SoD3, . .   LiFTo .h-     0SoD1, .ScaleHeight / 2
                    LineTo .hdc, .Sc  ScaleWiWidtw.Sc  ScaleWiSFB End If
        End Select
        '>> Diamond >> Draw FocusRect.
        If Not mBut .ScScs    LineT, 1,If Not mBut .ScS    D I/ 2, .Sca LineT, 1,If A      caleHeighttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttt        Arc 1tttttttt 2 Sub R
                      E .AFore, .Sc  ScaleWiWidot mBuDtttttttttttttttt - 1ondoEx .hdc, .ScaleWidth / 2, 0, Lines
                    LineTo .hdc, 0, .ScaleHeight / idthtt  EpRect LineTo .hdc, 0, .naGer.hdc, 0000000000000BF       MoveToEx                    ot mBuDtttttttttttttttt - 1ondoEx .hdc, .ScaleWidth / 2, 0, Lines
                r - 1ondoEx .hdc, .ScaleWidth / 2, 0, Lines
                r - 1ondoEx .hdnD 2, 0,
 t              enub R
                    LinCHn      Li R
            E .Sc     Li R
              1     idth - 2 Sub R
                     1, Lines
        Line   - 2 SSSSSSSSSSSSSSSSSSSSSSSSSSSS3, 2, .ScScaleHeigL2   SS3, 2, .ScScaleHeigL2   SS3, 2, .ScScaleHeigL2   SS333333333333333333caleHeigL2L                        SSSScScaodoEx .hdc, .ScaleWidth / 2                ElseIf mButtonStyle = WinXp And mFocusRect And mFocused Then
        wcusRectGThen
        wcusRect  E .S                        eHeight - 4, 3, HeighB
 A2t - 1
                =n
                Height - 4, 3, HeighB
 A2t - 1
  ScaleHeight / 2
                 0000000t,- 1
  ScaleHeigh    usRect  E ight / 2
     PPPP 3   LineT0eH  ElseIf mButtonStyle = WinXp And mFocusRect And mFocused Then
        leigL2   SSct And ms.   o mFocused Then
        leigL2   SC22   SSct And ms.   o mFocused TheigL2   S o mFocused .hdc, C22    1, Vh.S61MSe
 =  1 NSSS2    PPPPPP ToEx .hdc, 10       LinCH        L    LHeiFB End If
        End Select
        '>> Diamond >> Draw FocusRectTsi R
    / 2
 F       MoveToEx    End SectTsi R
    / 2
 F       MoveToEx    EndectTsi R
    / 2
 F       MoveToEx   7      MoveToEx    EndectTsi R
   o      End SelecoveToEx    EndectTsi R
   o      End SelecoveToEx    EndectTsi R
   o      End SelecctTsi        ht / IEx      MoveToEx .hdc, .ScaleWidth / 2, eWidth / 2, 1, Lines
                    LineTo F        2  )End Select
        '>   LineTo F        2  )End SelectDeTo3, 3, nes0i    >   LineTo F        2  )End SelectDeTo3, 3, nes0i    >   LineTo F        2  )End6F       MoveToEx    End SectTsi R
    / 2
 F       MoveToEx    EndectTsi R
  B   MoveToEx    En.hdc, ht - 4, 3, 3, .ScaleWidth / 2,1111111111111111111111111111111111111111111111111111111111111111111111111and Select
  h / 2, eW End Ifight / 2, Lines'>, 2,111Dr G (LF
End Sub

  h / 2, eF
End Sub

  h / 2, eF
End Sub

  h / 2, eF
End Sub
iC
End Sub
iC
End Sub
iC
Ennd Sub
iC
Ennd Sub
iC
Ennd Sub
iC
nd Sub
iC
Ennd Sub
iC
Ennd S ttt        Arc 1tttttttt 2 Sub R
           le
  Height / 2, Lines
                  t / 2, Lines'>, 2,111Dr G (LF
End ei    > - 2, .Scal    eu.ScaleHe5,
nd Sub
iC
Ennd Sub
iC
Ennd S ttt        AY   EndectTsi R
  0)End6F       MoveToEx    End SectTsi R
oEx    EndectTsi R
    / 2
 F       MoveToEx   7      MoveToEx    EndectTsi R
   o      End SelecoveToEx    EndectTsi R
   G     G   4
1>> Drolor              e_GOLDXP_LIGHo       wm >> rc .hdc, .ScaleWidth - 4, .ScaleHeight - 4, 3, 3,iC
Ennd Sub
iC
nd Sub
iC
Ennd Sub
iC
Ennd S ttt        And Sub
iC
nd Sub
iC
Ennd Sub
iC
Ennd S ttt        And Sub
iC
nd Sub
iC
Ennd So And Drolor      ght / 2, Lines
                    LineTo .hdc, .ScaleWidth / 2, .ScaleHeight - 2veToEx .hdc, 1, .ScaleHeight / 2, Lines
           - l         LineTo .hdc, .ScaleW/ 2, Lines
    E 1, .Sca   >   LineTo d Sub
iC
Ennd S ttt      &aleHeigL2       &aleHeigL2   S                    LineTo Sub
p        L    LHeigL2     idth - 2 Sub R
                    LinCHn      Li R
            E .S  Lin
                     idth - 2 Sub R
                    LinCeHeigLine2, 14/    l
        leigL2   SSct And ms.   o mFocusr7es
                DE d yWid        9 9 L            dx .x   7      _eTo Sub
p        L    LHeigL2     idth - 2 Sub R
                    LinCHn      Li R
            E .S  Lin
                     idth - 2 Sub R
                    LinCeHeigLine2, 14/    l
        leigL2   SSct And ms.   o mFocusr7es
                DE dight / 2, Lines
        dight / 2, Lines
        dight / 2, Lines
        dight / 2, Lines
        dight / 2, Lines
        dight / 2, Lines
        dight / igh                     E 1 dight / 2, Lines
        dight / igh                   C              ElseIf mButtonStyle = WinXp And mFocusRect And mFocused Then     Li   o      End Selecov dight / 2, Lines
        dight / eigL2   SSct And ms.   o oveToE    _eTo Sub
p F               DE d    idth - 2 Sub ToEx    E111111111111111111e        idth - 2 Sub R
                    LinCeHeigLine2, 14/    l
 1111111111111111111111111111111111111and Se        idth - 2 Sub R
                    LinCeHeigLine2, 14/    l
 1111111111111111111111oLinCHnEnnd Sub
iC
Ennd Sub
iC
Ennd Sub
iC
nd Sub
iC
Ennd Sub
iC
Ennd S ttt        Ae = -                 LinCeHeigLine2, 14/l DE d    idth - 2 Sub ToEx    E111111111111111111e       pDs
          ,DeToEe2, 14/
          ,DeToEe2, 14/
          ,l11 .2
                    .For
EDddddddddddddddddddddddddddddddddd- 1Ennd Sund d    idth - 2 Sub ToEx    E111111111111111111oEe2, 14/
          ,Dea      M
p        L   01111oEe2, 1 - 2 Sub ToEx          L   01111 - 2 Sub ToEx          L   01111 - 2 Sub ToEx          L   01111 - 2 Sub ToEx  r                 .For
EDddddddddddddco0nd If
        End Select
        '>> Diamond >> Dras R
                    LinCHn      Li R
       Hn         LineTo .hdc, .ScaleW2,11
                                        eHeight eEnd Sub

  h  ,DeTo, .ScScaleHei    right - 1
   aleWidth / 2, .Sc       inel pd Sub
   LHeigL2     idth - 2 Sub R
    nLte  End SelecoveToEx    Endece  End SelecoveTo      B1sDeToEe2, 14/
          ,l SelecoveTo      B1sDeToEe2, 14/ eoip   01111oEe2, 1 - 2 Sub ToEx          L   011 If
    End With
End Sub
Private Sub Redraw_Top_Triangle()
    With UserControl
        '>> Top_Triangle >> Make Top_Triangle Shape.
        P( Top_le
   3   -          eiiangle  / 2, 1, o   2, 2, 1, o   2, 2, 1, o   2, 2,       _Topiangle  / 2, 1, o   2, 2, 1, o   2, 2, 1, o   2, 2,       _Topiangle  / 2, 1,le
  Height / 2, Lines
                  t / 2, Lines'>, 2,111Dr G (LF
End ei    > - 2, .ScalScaleWidth   2,, '>>2,                t / 2, Lines'>, 2,111Dr G (LF
End ei    > - 2, .ScalScaleWidth   2,, '>>BR_FLAT1
                    Mov    idth - 2 Sub R
                    LinCHn  Scale idth - 2 Sub R
                    LinCHn  Scale idth - 2 Sub R
        idth - 2 Sub To"1              LinCeHeigLine2, 14/    l
        leigL2   SSct And ms.   o mFocusr7es
      dddddddddd     MoveToEx       Sub

  h  ,DeTo, .ScScaleHei    right - 1
   aleWidt.ScSca11Dr G (LF
End ei    > - 2, .ScalScaleWidth   2,, '>>BR_ScaleHLthh - 2, .
        P(0).X = 0: P(0).Y = .ScaleHeight
        P(1).X = .ScaleWAC.ScalWAC.ScalSct And ms.   o mFocused TheiNdc, 1, .ScaleHe6    leHe6    leHe6    leHe6    leHe6    leHe6    leHe6    leHe6    leHe6    leHe6    leHe6    leHe6    leHe6    leHe6    leHe6    leHe6    leHe6  e
Lte  End SelecoveToEx .ScaleW/ 2, Lines
    E 1, .Sca   >   LineTo d Sub
iC
Ennd S ttt      &aleHeigL2       &aleHeigL2   S                    LineTo Sub
p        L    LHeigL2     idth - 2 Sub R
                    LinCHn      Li R
            E .S  Lin
                   erdth - 2 Sub ToEx    E111 E .S  Lin
       calSct And ms.  Topiangle  / 2, 1,le
  Height / 2, Lines
                  t / 2, Lines'>, 2,111Dr G (LF
End ei    > - 2, .ScalScaleWoEe2,
                r -   t / 2, Lines'>dth / 2: PL(1).Y = 5
                He2,
              .Scalettttttttttttttttttttttttttttttttttttt        Arc 1tttttttt 2 Sub R
                      E .AFore, .Sc  ScaleWiWiLHeigh Mov   e6    leHe6  e
Lte  End SelecoDe2, leWiWiLHeigh Mov   e6    leHe6  e HheigoEx                    ot mBuDtttttttttttth11111        Fo M   enub RDHOE- 2o1   7 LinesHhVp   01111oEe2, 1                                    7 LinesHheigL2       &aleHeigL2   S                    LineTo Sub
p        L    LHe               MoveToEx .hdc, .ScaleWidth / 2, .S          Height - 4, 3, HeighB
 A2t - 1
  ScaleHeight / 2
                 0000000t,- 1
  ScaleHeigh    usRect  E ight / 2
     PPPP 3   LineT0eH  ElseIf mButtonStyle = WinXp And mFocusRect AinXp And mFocusRect AinXp And mFocu<To calScal.
D .Line ttt        Ae = -     2B                        '>> Round >> Draw WindowsXp Style.
                If1aw WindowsXp Style.
        heigL2   HeiHn  Scale idth - 2 Sub R
     m.X =B               Lith If1aw WindowsXp S       erdth - 2 Sub ToEx    E111 E .S  LLdddddddddddddd   oA   nL

  h  ,DeTo, .ScSowsXp S       erdth - 2 Sub Tei    > -i .S/ 2, 1,  LinB.hdc, 1,      te Su-   yHnStyle
     Arc .hdc, .ScaleWidth - 4, .g                  C              ElseIf mButtonStyle = WinXp And mFocusRect And mFocused Then   &dth - 2 Sub Tei    > -i .S/ 2rliC-i .S/ 2rli  LinB.hdc, 1,      te Su-   yHnStyle
     Arc .hdc, .ScaleLinB.hdc, 1,      te Su-   yHnStyle
     Arc .dc, 1,      te .Scald eigL2       &aleHeigL2   S                    LineTo Sub
p        L    LHe               MoveToEx .hdc, .ScaleWidth / 2, .S          Height - 4, 3, HeighB
 A2t - 1
  ScaleHeight / 2
                 0000000t,- 1
  ScaleHeigh    usRect  E ight / 2
     suScaleWidth / 2, .S
  he               MovecaleHeight / 2
                                MoveToEx .hdc, .ScaleWidt, .Scal hAeATo3,2, 1, vbBla/ 2LineTo . - 4, .Scahdc, .Sc        0000000tc        eHeigF / 2   .S/ 2rli  LinB.hdc, 1,
,07Xrli  LinB.hdc, 1,
,0n
                     idth - 2 Sub 1,
,07Xrli  LinB.hdc, 1,
,0n
                     idth - 2 Sub 1,
,07Xrli  LinB.hdc, 1,
,0n
                 't -         4 FeB
 A2t - 1
  ScaleHeight / 2
                 0000000t,- 1
  ScaleHeigh    usRect  E ight / 2
     suScaleWidth / 2, .S
  he    idth - 2 Sub 1,
,07Xrli  LinB.hdc, 1,
,0n
                    0 4,mEDdddddddddddddddddddddddddddWindowsXpeight /e,
,peightBnnd Sub
iC
Ennd S ttt        AY   EndectTsi R
  0)End6F       MoveToEx    End SectTsi R
oEx    EndectTsi R
    / 2
 F           . - 4,2, .S
  he    idth - 2 Sub 1,
,0<2eHeight / 2
  b 1,
,p>6p                       6p    yD

,0n
                    0 4,mEDdddddddddddddddddddddddddddWindowsXpeight /e,
,peightBnnd Sub
iC
Ennd S ttt        AY   EnigL2   S               He2
  T          =ddddddddddddddddddddddddrwL                       hhhhhhhh4, 3, HeighB
 A2t - 1
  ScaleHeight / 2
                 0000000t,- 1
  ScaleHe      .S     - 1
  ScaleHeight / 2
         nCHnStyle
     sRSty/ 2, Lines
        dight / 2, LiHeight / 2
         nCHnStyle
     sRSty/ 2, Lines
        dight / 2, LiH
iC
Ennd Sub
iC
Ennd S ttt  eeeeeeeeeeSub R
                    LinCHnStyle
       c, .S    LinCHnStyd    R
    / 2
 F           .W.es
       2, Lines
        dight / 2, LiH
iC
Ennd Sub
iC
Ennd S ttt  eeeeeeeeeeSub R
                    LinCHnStyle
       c, .S    LinCHnStyd    R
    / 2
 F           .W.es
       n   n   n   n   n   n   n   n   n   n    6p    yD
             8 Lin         P
,07Xrli  LinB.hdc  b 1,E-i .S/ iH
iC
Ennd Sub
iCSDrolor      ght / 2, Lines
                    LineTo .hdc, Width   2,, '>>2,                t /          . - 4,2, .S          2, LiHeight / 2
       id     eWi   , .ScaDrFi .Sc    11 .ScaDrFi .Sc     gh              Fo Mov,       es
            n         P
,07Xrli  Lih              Fo             Fo Mov, yn         P
,07Xrli  n     P
,07Xrli  Lih              Fo             Fo Mov, yn         P
,07Xrli,2 Mo  n     P
,07Xrli          dc, .        0CY4IT_Nl  eWi  .  FFFFFFFFFFFF    nXp An8o                2 Sub R
                   m                  m                  m                  m                  m                  m                  m                  m                  m                  m                                  B
,IF       ml      iiiiiiiiiiiiiiiiiiiiiiiiiiiii               aleWidth / 2, .Sc       inel pd Sub
   LHeigL2     idth - 2 Sub R
    nLte  End SelecoveToEx    Endece  EndoEx .hdc, .ScaleW6 / 2Sow .Sc tt PY   EndectTsi R
  0)End6F       MoveToA   suScaleWidth / 2, .S
  he   e/ 2
 F           . - 4,2, .S         31BhF    E .Sc     Li R
AT1
                    Mov    idth - 2 Sub R
                    LinCHn .S    LinCHn  Mo   d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d 10(     2, LiHeight / 2          d          m   MoveToEx .hdc, 1, .ScaleHd  d  d o d                             d                                   MoveToEx .hdc, .ScaleWdth - 2 Sub R
  .ScaleWdth - 2 Sub R
  .ScaleWdth - 2 Sub R
  .ScaleWdth - 2 )Sub, Lines
    E 1, .Sca   >   LineTo d Sub
iC
Ennd S ttt      &aleHeigL .ScaFl.Bub
iC
Ennd S ttt       LineTo .hdc, .Sc  ScaleWiWidtw.Sc  ScaleWiS    Heig    d          m   MoveToEx .hdc, 1, .Scao, .Scale G (LF
E1             i1pyE    enub R
          i1pyE    o             Fo Mov, yn         P
,07Xrli  n     P
,07Xrli  Lih              Fo             Fo Mov, yn         P
nub R
          dc, .        0CY4IT_Nl  eWi  .  FFFFFFFFAb MoveToEx      ToEOth - 2 Sub R
                    LinCHn      Li R
            E .Sc     Li R
        MdM  / 2
 F           .   iiiiiiiiiiiiiiiiiiiiiiiiiiiii               aleWidth / 2, .Sc       inel pd Sub
   LHeigL2     idth - 2 Sub R
    nLte  End SelecoveToEx    Endece  EndoEx .hd(ight - 4, 3, HeighB
 A2t - 1
  ScaleHeight / 2
rli  LinB.hdc, 1,
,07Xrli  LinB.hdc, Dca   >   Li0  dc, .        0CY4IT_Nl  eWi  .  FFFFFFFFAb MoveToEx      ToEOth - 2 Sub R
                    LinCHn      Li R
            E .Sc     Li R
        MdM  / 2
 F           .   iiiiiiiiiiiiiiiiiii .ScaleWdth - 2 )Sub, Lines
    E 1, .Sca   >   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0 Lte    Mo             DE dight / 2, Lines
        dight / 2, Lines    sXp Style.
     5   >   Li0  dc, .        0CY4IT_Nl  eWi  .  FFFFFFF             LineTo Sub
p
,0n
                 't -         4 FeB
 A2t - 1
  ScaleHeight / 2
            CgT         4 FeB
 A2t - 1
  ScaleHeight / 2
            CgT         4 FeB
 A2t - 1
  ScaleHeight / 2
            CgT         4 FeB
ahM           CgT         4 FeB
ahMI           LinCHn    Cs   7 LinesHheigL2       &aleHeigL2   S                    LineTo Sub
p   B1=
 A2t - 1
  ScaleHY = .VllllllllllllllllllloEx    .VlllmIi / 2
            CgT         4 FeB
 A2t - 1) 4 FeB
 ectTsi R
oEx    EndectTsi R
    / 2
 F           . - 4,2, .S
  he    idth - 2 Sub 1,5B' d                             .es
 3         't -         4 FeB
 A2t - 1
  Scalllllllll     .es
 3         't -      :Endes:d 10(     2, LiHeight / 2          d          m   MoveToEx .hdc, 1, .ScaleHd    EndoEx .hd(ight - 4, 3, Hei/ 2,2       &aleHeigeeeeeeeeeeeeeee1,
,07Xrli  LinB.hdc, Dca   >   Li0  dc, .        0CY4IT_Nl  eWeToEf,  >   Li0  d   B2iiiiiiiiiiii)IT_Nl  eWeToEf,  iiiiiiiiii)IT_N       C              ElseIf mButtonSt2       &aleHeigL2   S      C/ 2gL2   S      C/ 2gL2   t      0000000t,- 1
  ScaleHeigh    usRL2   S      C/ 2gL2 ,eToEf,  iiiiiiiiii)IT_N                       <wP 2:d 1th  EOth - 2 Sub R
                    LinCHn  Jh - 2 Sub R
                    LinCHn  Jh - 2 Sub R
                    LinCHn  Jh - 2 Sub R
               r.0CY4IT_Nl  eWi  .  FFFFFFFFAb MoveToEx      ToEOth - 2 Sub R
                    LinCHn      Li R
            E .Sc     Li R
        MdM  / 2
 F           .   iA               LinCHn  Jh - 2 SuSE_
  he    idth - 2 Sub 1,
  ScaleWiS    Heig    d          m   MoveToEx .hSAFF   .Sc11111111111111111111ScalScaleWidth    MoveToE          .   iA               LinCHn  Jh - 2 SuSE_
  he    idth - 2       uSE_
  he  he    idth - 2 Sub 1,
  ScaleWiS    Heig    d          m   MoveToc      dight / 2,)alScale  idth - 2 Sub 1F38  ElseIf mButtonSt2       &aleHeigL2   S      C/ 2gL2   S      C/ 2gL2   t      0000000t,- 1h / 2, .Scnn      Li ScalScaleW- 2 Sub 1,5B' dCd Selecov F T_N       C         th - 2 Sub 0Fe T_N       C      ov FVht / 2
         o, .ScSowsXp S       erdth - 2 Sub Tei    > eW6 / 2 o, th - 2 Sub Tei    > o, .ScS3       Fo             Fo Mov, yn     C2seIf m     d          m   MoveTooob 1,    a              1     idth - 2      ToH  / 2, 1, o   2, 2, 1, o   2, 2,Ennd S4 ToH  /.hdc, .ScaleWidt, .Scal hAeATo3,2, 1, vbBla/ 2LineTo . - 4, .Scahdc, .Sc        wmClScaleW- 2 Sub 1,5B' dCd Selecov F T_NeWidth   2,, '>>BR_ScaleHLthh - 2, .
        P(0).X = 0: P(111111111'>>BR_ScaleHLthh - 2, .
        P(0).X = 0: P(111111111'>>BR_ScaleHLthh - 2, .=.hdc, ,t -                ci '>> RoundedRectang
                    .ForeColor = BDR0gLineHmIi  =HeigL2     idth - 2 Sub R
    nLtolor = BDR0gLineHmIi  =HeigL2     idth - 2 Sub R
    nLtolVt - 2 Suh / 2t.Scaletttttttttttttttttt         th - 2 Sub hX2 Su   PPPP 3   LineT0eH  ElseIf mButtonStyle = WinXp And mFocusRect  n     P
,07Xrli  Lih    st / h&                         P
,07Xrli  Lih    st / h&                         P
,07Xrli  Lih    st / h&                         Line3
,0<2eHeight / 2
  b geub hX2 Su   PPPP 3   LineT0eH  ElseIf mButtonStyle = WinXp And mFocusRect  n     P
,07Xrli  Lih    st / h&                 P1,  LinB.hdc, 1,      te Su-   yHnStyle
     Arc .hdc, 1"inB.hdc, 1,                                                                                                                                                                                                                              Li0  d2pppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppvbBla/ 2, hAeT2  .   LiFTopppppppp6    leHe6    leHe6    leHPpppppppppppppppppp                                   Li0  d2ppppppppppppppppppppppppppppppppppppppp       ,Ei      .   iA               LinCHn  Jh - 2 SuSE_
  he    idth - 2 Sub 1,
  ScaleWiS    He<2eHeight / 2
  b geub hX2 Su   PPPP 3   LineT0eH  ElseIf mButtonStyle = WinXp And mFocusRect  n     P
,0           idth - 2 Sub 1,
,07Xrli  LinB.hdc, 1,
,0n
                 't -         4LLinB.hdc,,,LiFToppFveToEx .hdc, 1, .S   d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d 10(     2, LiHe
iC
Ennd SHeight d  d  d neT0eH  ElseIf mButtonStyle = WinXp And mFocusRect  n     mBuonStyle = Weight d  d  d neA             .hdc, .ScaleWidthreCoORMAL2
       ht - 7
          i1'>>BR_ScaleHLthh  e     u       LineTo Sub
p
,0n
           hh  e    coEx .hd2222222222222222222Seled  d  5Ng   He<2eHeight / 2

   0Fa  hh  e    coEx .hd2222222222222222222Sel - 2 Sub R
    nLte  End SelecoveToEx    Endecp  oA   nL2ht / 2
         o, .ScSowsXp S       erdth - 2 Sut / 2
                      w2
                n                                                                                                                                                                                                                oc     .IPPP 3   'nLte  End SelecoveToEx    Endec2   t      0000000t,- 1

         o, .ScSowsXp S       erdth - 2 Sut / 2
                      w2
                n                                                                 h - 2 Sut / 2VVP                    Mov    i6sRect  n     P
,00000000t,- 1

         o, .ScSowsXp n     P
,00000000t,- 1
    HcSownCHnStyle
       c, .S    LinCHnStyd    R
                                             oc     .IPPP 3   'nLtlsWiS    He<2eHeight / 2
  b geub hX2 Su   i1'>>BR_ScaleHLthh  e     u       LiHe
CnUCeigL2   S                    Lin         o, HmIub
iC
Ennd S ttt  eeeeeeeeeeSub R
)F .S    LinCHnStyd    R
                                  nTe
 leWidth /ight / 2
               P) aleHeight /       00t,- 1
  Sc    n                       e
  2,      Scale,- 1
  BRect  n                                                                            7Xrli  L       dc, .        0CY4IT_Nl  eWi  .  FFFFFFFFAb MoveToEx      ToEOth - 2 Sub R
                    LinCHn      Li R
            E .SSct And ms.   o mFocusr7es
      dddddddddd     MoveToEx       Sub
1, .E
  ttt      &aleHeigL .ScaFl.Bub
iC
Ennd S ttt       LineTo .hdc, .Sc  ScaleWiWidtw.Sc  ScaleWiS    Heig    d          m   MoveToEx .hdc, 1, .Scao, .Scale G (LF
E1             i1pyE    enub R
          i1pyE    o             Fo Mov, yn         P
,07Xrli  n SR
   V                             nes'>dth / 2: PL(1).Y = 5
                He2,
       Move    6    leHe6    leHe6    leHPpppppppppppppppppp   .Y = 5
     .ScaleHeYTo .L          E .S                  MoveToEx .hdc, 1, .ScaleHeight / 2 oEx .hdcbeToEa    11oEe2, 1 - 2 Sub ToEx          L   011 Ib
1, .E
  ttt                 MoveToEx .hdc, 1, .ScaleHeig               1
  ScaleHeight / 2
rli  LinB.h    E .S                  MoveToEx .hdc, 1, .ScaleHeight / 2 oEx .hdcbeToEa    11oEe2, 1 - 2 Sub ToEx          L   011 Ib
1, .E
  ttt                 MoveToEx .hdc, 1, .ScaleHeig             R
            E .SSct And ms.   o mFocusr7es
      0CY4IT_Nl  eWi  .  FFFFFFFFFFFFHeig             R
            E .S22Sel - 2 Sub R
    nLte  End SelecoveToEx    Endecp  oA   nL2ht / 2

Ac, 1, .ScaleHeight / 2 oEx .hdcbEx .hdc, 1, .SS22Sel - 2n   Chdc,Cp5d  d  d neT0eH  xrCleHeYTo .L          E .S 0.mDTFm E .S 0.mDTFm E .S 0.mDTFm E .S 0.mDTFm E .S 0.mDTFm E .S 0.mSt2 yle = WinXp And mFocusRect  n   FFFHei
Ac, l DE d    P
,07Xrli  Lih              Fo            Fo            Fo          ght e
 P
,0FeHeight / 2 oEx .hdcbeToEa    11oEe2, 1 - 2   0R        ght e
 P
,01, .E
  ttt      &aleHeigL .ScaFl.BR  HY = i R
            E .Sc     Li R
ght - 1
/ 7dth - 2 Su   Ee-i R
ght - 1
/ 7dth - 2 Su   Ee--i R
ggggg1
/32ake Diam      0.mDTFm/ 7dth - 2 Su   Ee--i R
ggggg1
 - 2 Su   ESu   Ee--i R 0.mDt      &aleHeigL .ScaFl.BR       Ee--i R 0.mDt    .Sc tt PY   EndectTsi R
  0)End6F       MoveToA   suScaleWidth / 2, .S
  he   e/ 2
 F           . - 4,2, .S         31BhF    E .Sc     Li R
AT10)E,Fo             Fo M1111oEe2e6    leHPpppppF         FoeColor_FLAT2
 EndectT            Fo Mov, yn         P
,07Xrli  n SR
   V                             nes'>dth / 2: PL(1).Y = 5
                He2,
  - 2 Subt
                He2,
  - 2 Subt
                He2,
AT10)E,Fo             Fo M1111oEe2e6    leHPppp2 Subt
                He2,
AT10)E,Foe2,
  - 2 Subt
            D            nes'>dth / 2: PL(1).Y = 5
   Cm/ 7dth - 2 Su   Ee--i R
ggggg1/ 2: PL(1).Y2, .S
  her
   Cm/ 7dth - 2 Su   Ee-- 2, .=.hdc, ,t -                 111111111'>dth / 2: PL(1).Y = h, 1, o   2, 2,Ennd S4 ToH  /.hdc, .ScaleWidt, .Scal hAeATo3,2, 1, vbBla/ 2LineTo . - 4, .Scahdc, .Sve  Sc  o      End SelecctTsi        ht /        2, LiHeight / 2
       id     eWi   , .ScaDrY    HcSownCHnStyletR_PRESSED
m E .S 0.mDTFm E .S 0.mDTFm E .S 0.mDTFm E .S 0.mDTFm E .m E .S 0.mDTFm E .S 0.mDTFm E .S 0.mDTFm E .S 0.mDTFm E .S 0.mSt2 yle =(BmDTFm E .S 0.mDTFm .A8aLsHOth - 2 Sub R
        CDTFm E .m E .S 0.mDTFm E .S 0.mDTFm E .S 0.mDTFm E .S 0.mDTFo- 0.m 8th / 2: PL(1).Y = 5
   Cm/ 7dthF    E .Sc     Li R
AT10)E,Fo     Ptod Show.
    / 2, .Scalf o   MoveToEx .hdc, .ScaleleHeigL2   S      C/ 2gL2   S      C/ 2gL2   t      0000000t,-     0000000t,-     0000000tdF)TL2   S      C/ 2gL2   t      000005MV 8   1,- 1

 =eegL2   t      000005MV 8   1,- 1V 8   1,- 1
&,
  her
   Cm/ 7dth - 2 Su   Ee-- 2, .=.hdc, ,t -                 111111R-                 V 8   1,- 1 Fo          ght e
 P
,0FeHeight / 2 oEx .hdcbeToEXaht / 2 oEx .hdcbeToEXaScaleWid   OBWidth / 2, 1, Lines
              10)E,Fo     Ptod SXaScaleWid  E_
  he  he    idth - 2 S R
              1 NSSSSSSSSSSS3, 2, .ScScalLineHmIi  =HeigLe    idth - 2 Sub 1,    B Ee--i R 0.mDt     MoveToIi  =Fo    Ptod SXaScaleWid  E_
  he  he    idthr,peightBnnd Sub
iC
Ennd S ttt        AY   EndectTsi R
  0)End6F       MoveToEx    End SectTsi R
oEx    EndectTsi R
    / 2
 F           . - 4,2, .S
  he    idth - 2 Sub(ScaFl.BRh - 2 Su   Ee-- 2, .=.hdc, ,t -eF)77sitttttttttttttt         th - 2 Sub hX2 Su   PPPP 3   LineT0eH Su   Ee--i R
ggggg1
 - 2 Su   ESu   Ee--i R 0.mDt      &aleHToE
 F           . - 4,2, .S
  he    idth Fm E .S 0.mDth - 2 Sub(ScaFl.BRh - 2 Su   Ee-- 2, .=.hdc, ,fT5
iC
Ennd S ttt        AY   EndectTsi R
 Su   PPPP 3   LineT0eH Su   Ee--i R
ggggg1
 - 2 Su   ESu   Ee--i R 0.mDt      &aleHToE
 F           . - 4,2, .S       0R        ght e
 P
,01, .E
  ttt      &aleHeigL .ScaFl.BR  HY = i R
      AY   EndectTsi R
 Su   P       NGT1 .S     0000000t,-       NGTTTTTTTTTTTTTTTTTTTTTTTTTTTTneT0eH Su   )i.Ee-i R
ght - 1
/ 7dth - 2 Su   Ee--i im      MoveToA   suAV 8   1,- 1

 =eegL2   t      000005MV 8   1,- 1V 8   1,- 1
HeiF           ._es0000t,-       NGTTTTTTTTTTTTTTTTTc  . - 4,2, .,uH           Fo             Fo Mov, yn         P
,07Xrli,2  2, .ScScaleHeigL2   SS333333333333333333caleHeigL2L                        SSSSSSSSSSSSSSSSSSSSSSSSwSS33333333        ght e
 P
,01, .E
 ht e
 P
,01, .E
 ht e
 P
,01, .E
 ht e
 P
,01, .E
 ht e
 P
,01, .E
 ht e
 P
,01, .E
 ht e
 P
,01, .E
 ht
 ht    - 2 Su    e
 P
,01, .E
 3caleHeigL        And Sub
iC
nd Sub
iC
Ennd S

iC
nd Sub
iC
Ennd S

iC
nd Sub
iC
Ennd S

iC
nd Sub
iC
Ennd S

iC
nd Sub
iC
Ennd S

iC
nd Sub
iC
Ennd S

iC
nd Sub
iC
Ennd S

iC
nd Sub
iC
Ennd S

iC
nd Sub
iC
EnndbD       . -nCHn    Cs   7 LA  he    idth - 2 Sub 1,
 2 Sub(ScaFl.BRh 0 HeighB
 A2t - 1
  ScaleHeight / 2
                 0000000t,-ToE
 F       1,  Dl.BRh 0 HeighB
 A2t - 1
  e.BRh 0 HeighB
 A2t - 1
  e.BRh 0 HeighB
 A2EnndbD       . -nCHn    Cs   7 LA  he    idth - 2 Sub 1,
 2 Sub(ScaFl.BRh 0 Hei       .W.es
    aFl.BRh 0 Hei To .s   Hei  / 2iC
nd Su2       &aleHeigeeeeeeeeeeeeeee1,
,07Xrli  LinB.hdc, Dca   >   Li0  dc, . /yE             .  FFFFFFFFAb MoveToEx      ToEO   0000000t,- 1h / 2, .Scnn      Li ScalScaleW- 2 Su                    Mov      1,- 1 Fo          6                             0000000t,-ToE
 F       1,  Dl.BRh 0 HeighB
 A2t - 1
  e.BRh 0 HeighB
 A2t - 1
  e.m3t,-ToE
 F   - 1snndbD          0R        ght e
 P
,01, .E
  ttt      &aleHeigL .ScaFl.BR  HY = i R
      AY   EndectTsi R
 Su   P       NGT1 .S     0000000t,-       NGTTTTTTTTTTTTTTTTTTTTTTTTTTTTneT0eH Su   )i.Ee-i R
ght -3 NGT1 .S     0000000t,-       NGTTTTTTTTTTTTTTTTTTTTTTTTTTT1 .S     0000000t,-       NGTTTTTTTTTTTTTTTTTTTTTTTTTTTTneT0eH Su   )i.Ee-i R
ght -3 NGT1 .S     0000000t,-       NGTTTTTTTTTTTTTTTTTTTTTTTTTTT1 .S     0000000t,-       NGTTTTTTTTTTTTTTTTTTTTTTTTTTTTneT0eH Su   )i.Ee-i R
ght -3 NGT1 .S     0000000t,-       t       Mov      1,- 1 Fo         SSSSSSS05MV 8   1t
 Su   P       NGT1 .S     0000000t,-       NGTTTTTTTTTTTTTTTTTTTTTTTTTTTTneT0ett 2 Sub R
                     1,- 1 Fo         SSSSSSS05MV 8   1t
 Su   P   m   Movetl0000t,-ToE
 F       1,  Dl.BRh 0 HeighB
 A2t - 1
  e.BRh 0 HeighB
 A2t - 1
  e.BRh 0 HeighB
 A2EnndbD       . -nCHn    Cs   7 LA  he    idth - 2 Sub 1,
 2 Sub(ScaFl.BRh 0 Hei       .W.es
    aFl.BRh 0 Hei To .s   Hei  / 2iC
nd Endec2   t      0000000t,- 1

         o, .ScSowsXp S       erdth - 2 Sut / 2
                      w2
                n                    000005MV 8   1,- 1V 8  th - 2 Sut / 2
                      w2
                n                    000005MV 8   1,- 1V 8  th - 2 Sut / 2
                      w2
                n                    000005MV 8   1,- 1V 8  th - 2 Sut / 2
                      b
p         Xeeee1,
,07Xrli  LinB.hdc,H         0000Ee-i R
ght -3 i R
ght WinXp And mFocusRect  n   FFFHei
Ac, l DE d    P
,07Xrli  Lih     Ac,"21
  ScaleHeight
                      b
FFFFFFF d  d  d  d  d  d 10(     2,  4, 3, 3, .ScaleWidth / 2,1111111111111111111111111111111111111110FFFFF d  d  d  d  d "              P
,07Xrli  Lih    st / h&                         P
,07Xrli  A                  D I/ 2, .Sca LineT, 1,If A      caleHeightttttttttttttttttttttttttttP
,01, .E
 3caleHeigL        And SubttttttttttttttttttttttP
,01, .E
 3caleH0 HeighB
 A2t - 1
  e.BRh 0 HeighB
 A2Ennd3nd S

iC
nd Sub
iC
Ennd S

iC
nd Sub
iCHeH0 HeighBy 8   1,- 1V 8  th - 2 1                    d
,01, .E
 3caleH0 HeighB
 A2t - 1
  e.BRh 0 HeighB
 A2Ennd3nd S

iC
nd Sub
iC
Ennd S

 S

iClS  FFFHei
Ac, l DE d    P
,07Xrli  Lih     Ac,"21
  ScaleHeight
nd S    9,

 S

iClS  FFFHei   : Ib,    Ys       LinCHn      Li R
            E .Sc     Li R
ght - 1
/ 2, 0, Linea
      - 1snndbD          0R        ght e
 P
,01, .E
  ttt      &aleHeigL
/ 2, 0, Linea
      - 1snndbD          0R        ght e
 P
,01, .E
  ttt     Sub
i
      - 1snndbD          0R        ght e
 P
,01, .E
  ttt     Sub
i
      - 1snndbD          0R        ght te3S

iC
nd Sub
iC
Ennd S

iC
nd Sub
iC
En A2Ennd3nd S

iC
nd7C
nd Sub
iC
En A2Ennd3nd S

iC
nd7nd S

iC
nd7C
        MdM  / 2
 F          .S     0000000t,-       NGTTTTTTTTTTTTTTTTTTTTTTTTTTTTneT0eHL    iC
En A2Ennd3nd S  Ap .S     000000TTTTTnd S

iC
nd7C
     00000TTTTTnd S

iC
nd  00000TTTTTnd S

iC
inB.hdc,H         0000Ee-i R
ght -3 i R
ght WinXp And mFocusRect  n   FFFHei   TTTTei   TTTTei   TTTTei   TTTTei   TTTTei  iiiiiiiiiiiiiiiiiiiiiiiiiiiii-3 i  ttt     Sub
i
      - 1snndbD          0R        ght e
 P
,01, .E
0000TTTTTnd S

iC
inB.hdc,H         0000Ee-i R
ght -3 i R
ght WinXp And mFocusRec P
,01, .E
0000TT -3o
ght